brauche dringend eure Hilfe. Ich möchte ein Bild in meine Excel Tabelle einfügen und diesem Objekt einen Namen zuweisen, damit ich geziehlt dieses Objekt verschieben bzw. in Zellen packen kann. Ich versteh es nur nicht wirklich, wie das ganze funktioniert.
Mein Code bis jetzt:
Bild = "http://chart.apis.google.com/chart?cht=qr&chs=100x100&chl=TestQRCode"
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100.25)
sh.ShapeRange.Fill.UserPicture Bild
Debug.Print ActiveSheet.Shapes(1).sh
With sh
.ShapeRange.LockAspectRatio = msoFalse
.Width = cl.Width
.Height = cl.Height
.top = Rows(cl.Row).top
.Left = Columns(cl.Column).Left
End With
Freue mich auf eure Antworten!