Ich habe eine Excel-Datei mit vielen Grafiken. Nun möchte ich die Grafiken "auslagern", damit die Excel-Datei nicht zu groß wird.
Dazu habe ich ein kleines Makro gebastelt, mit dem ich die Bilder aus der externen Quelle einfüge (pictures.insert).
Nachteil ist, dass ich jedesmal, wenn ich das Makro starte, die Grafik eingefügt wird und somit x-mal im Excel-Dokument enthalten ist.
Ich kann natürlich beim Schließen der Excel-Datei die Grafiken wieder entfernen, aber es muss doch noch eine elegantere Lösung geben.
Anbei der Quellcode zum Einfügen
##########
Dim sPicture1 As String, pic1 As Picture
strpfad = ThisWorkbook.Path
Set pic1 = Worksheets("Tabelle1").Pictures.Insert(strpfad & "\bild1.jpg")
With pic1
.ShapeRange.LockAspectRatio = msoFalse
.Height = Range("a3:d14").Height
.Width = Range("a3:d14").Width
.Top = Range("a3:d14").Top
.Left = Range("a3:d14").Left
.Placement = xlMoveAndSize
End With
Set pic1 = Nothing
##########
und der Quellcode zum Entfernen
##########
Worksheets("Tabelle1").Shapes.SelectAll
Selection.Delete
##########
Viele Grüße
Günter