[Excel]Macro listino articoli blocco immagini su cella

[momodj20]

In basso trovate il codice per importare in automatico le immagini su un foglio di excel.

Riuscite a darmi una soluzione su come bloccare l'immagine sulla cella in modo la cella si ridimensioni alla dimensione dell'immagine?

Grazie
Maurizio

Codice: Seleziona tutto

Public Sub Prova()
   Dim sImmagine As String
   Dim sPath As String
   Dim c As Range
   Dim rng As Range
   Dim sh As Worksheet
   Dim lLarghezza As Long

   sPath = "\\192.168.22.253\img4\"
   Set sh = Worksheets("BIACCHI2")

   With sh
      Set rng = .Range("G1:G1000")
      For Each c In rng
         If c.Value <> "" Then
                      sImmagine = ""
                      sImmagine = sPath & c.Value & ".jpg"
                      If Dir(sImmagine) <> "" Then
                         c.Select
                         .Pictures.Insert(sImmagine).Select
                          Selection.ShapeRange.Height = 100
                          Selection.ShapeRange.Width = 100
                          Selection.ShapeRange.IncrementLeft 8.49
                          Selection.ShapeRange.IncrementTop 4#
                    End If
         End If
      Next
   End With

   Set c = Nothing
   Set rng = Nothing
   Set sh = Nothing
End Sub

[wallace&gromit]

Ciao, sei finito nella sezione sbagliata, ce n'è una apposita per office. Se non vieni spostato da qualche amministratore del sito prova a ri postare li. Sicuramente c'è chi ti può aiutare.