PROBLEMA Immagini excel

[Merlin38]

Buongiorno a tutti, io utilizzo excel 2013 con la seguente macro

 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 = "Z:\ALL\prove\TEST\"


   Set sh = Worksheets("Foglio1")






   With sh


      Set rng = .Range("E1:E1000")


      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.Width = c.Width


                    End If


         End If


      Next






   End With






   Set c = Nothing


   Set rng = Nothing


   Set sh = Nothing
End Sub

la seguente macro fa quello di cui ho bisogno, ovvero mi inserisce le immagini prese da una cartella e le collega sulle celle.. il mio problema è che quando inivio magari tramite mail il file excel le immagini spariscono e esce al posto di essi una X rossa con scritto "impossibile visualizzare l'immagine collegata..." sapete come posso risolvere? Grazie mille in anticipo

 

[LordNight]

Buongiorno a tutti, io utilizzo excel 2013 con la seguente macro

 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 = "Z:\ALL\prove\TEST\"


   Set sh = Worksheets("Foglio1")






   With sh


      Set rng = .Range("E1:E1000")


      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.Width = c.Width


                    End If


         End If


      Next






   End With






   Set c = Nothing


   Set rng = Nothing


   Set sh = Nothing
End Sub

la seguente macro fa quello di cui ho bisogno, ovvero mi inserisce le immagini prese da una cartella e le collega sulle celle.. il mio problema è che quando inivio magari tramite mail il file excel le immagini spariscono e esce al posto di essi una X rossa con scritto "impossibile visualizzare l'immagine collegata..." sapete come posso risolvere? Grazie mille in anticipo

Credo che l'immagine sparisca semplicemente perché è solo collegata - ma non importata - in excel...

 

[Merlin38]

molto probabilmente si.. anche perchè con tutte quelle immagini il file mi pesa solo 8kb.. quindi molto probabilmente hai ragione.. ma c'è una soluzione? magari che non lo colleghi ma lo importi?