MacroFacili: Caricare immagini

Un elenco di voci, ad esempio un elenco di articoli letti da un database (un listino, un'offerta per un cliente), può essere arricchito con le corrispondenti immagini degli articoli.

Questa macro permette di caricare nel foglio delle immagini ed adattarle alla cella.
La macro ha due parametri:

la cella di "destinazione";
il precorso da cui leggere l'immagine.

Sub Carica_Immagine(Cella, NomeFile)
    If (Dir(NomeFile) <> "") Then
      Cella.Activate
      ActiveSheet.Pictures.Insert(NomeFile).Select
      Adatta_Immagine Cella.MergeArea
    End If
End Sub

Per fare il test della macro può essere utilizzato un codice come questo. Carica l'immagine il cui percorso è indicato nella cella D8 in B8 adattandone le dimensioni.

Sub Test()
  Set Cella = Range("B8")
  NomeFile = Range("D8")
  Carica_Immagine Cella:=Cella, NomeFile:=NomeFile
End Sub

Per ultimo, per cancellare le immagini caricate in precedenza sul foglio:

Private Sub Cancella_Immagini()
  Dim Shp As Shape

  For Each Shp In ActiveSheet.Shapes
    If Not (Shp.Type = msoPicture) Then
      Shp.Delete
    End If
  Next Shp
End Sub