|
Login
  • Page:
  • 1

TOPIC: Macro che non funziona su Excel 2007

Macro che non funziona su Excel 2007 5 years 8 months ago #9303

  • olmof
  • olmof's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 10
  • Karma: -1
Sto diventando matto!! :sick:
Ho questa macro che dovrebbe inserire un'immagine nella cella J12 che funziona con Excel 2003, 2010 e 2013 ma non con il 2007.
O meglio con il 2007 inserisce l'immagine ma tra la cella B4 e B5
Avete qualche idea?

Range("j12").Activate
ActiveSheet.Pictures.Insert("G:\adhocrev\exe\custom\query\carrello.bmp").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 18#
Selection.ShapeRange.Width = 15#
Selection.ShapeRange.IncrementLeft 11.25
Selection.ShapeRange.IncrementTop 1.5
The administrator has disabled public write access.

Macro che non funziona su Excel 2007 5 years 8 months ago #9304

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao Olmo,
forse non ho capito bene, ma in effetti queste:
Selection.ShapeRange.IncrementLeft 11.25
Selection.ShapeRange.IncrementTop 1.5

ti spostano l'immagine rispetto al vertice della cella.
quindi dovresti escluderle o mettere 0 e 0 invece di 11.25 e 1.5
Ciao, Lo
Last Edit: 5 years 8 months ago by lorenzo1957.
The administrator has disabled public write access.

Macro che non funziona su Excel 2007 5 years 8 months ago #9305

  • olmof
  • olmof's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 10
  • Karma: -1
Si tutte le selection funzionano. Le ho messe in questo esempio per completezza di informazione, in realtà il problema si verifica sulle 2 prime righe in quanto l'immagine (nel caso di Excel 2007) non viene posizionata nella cella J12, ma a cavallo tra la B4 e B5. Anche impostando la select al posto della Activate sulla prima riga il problema permane.
Ciao
The administrator has disabled public write access.

Macro che non funziona su Excel 2007 5 years 8 months ago #9308

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Ciao OLMOF,
la mia simulazione era con il 2010 ed in effetti non ci sono problemi che sono invec e specifici del 2007:
www.nullskull.com/q/10034382/excel-2007-...-insert-picture.aspx

questo codice da adattare pare funzioni (io non sono in grado di testarlo non avendo qui il 2007.

'This code works in Excel 2007:
Dim imgIcon
With Range("J12")
Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="C:\mypicture.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=30, Height:=30)
End With
Set imgIcon = Nothing

dovrebbe funzionare anche con i .BPM
ciao, Lo
The administrator has disabled public write access.

Macro che non funziona su Excel 2007 5 years 8 months ago #9309

  • olmof
  • olmof's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 10
  • Karma: -1
:woohoo: Grandissimo :woohoo:
Avevo trovato anch'io qualcosa di simile ma non funzionava.
Questo invece è perfetto.
Ora devo provarlo anche sulle altre versioni di Excel
Ciao
The administrator has disabled public write access.

Macro che non funziona su Excel 2007 5 years 8 months ago #9313

  • olmof
  • olmof's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 10
  • Karma: -1
Funziona su tutte le versioni!
Per completezza di informazione, ho trovato quest'altra soluzione funzionante: :)
Range("j12").Select
ActiveSheet.Pictures.Insert("G:\adhocrev\exe\custom\query\carrello.bmp").Select  
With Selection
   .Left = Range("j12").Left
   .Top = Range("j12").Top
 End With

Ciao e grazie
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.677 seconds