Hallo,
ich möchte in Excel per VBA oder Makro ein Bild per Button einfügen. Das ist ja noch kein Problem. Aber ich möchte das Bild gerne auf zwei Tabellenblättern einfügen. Den folgenden Code habe ich schon programmiert und das funktioniert (auf dem aktuellen Tabellenblatt), jedoch soll das gleiche Bild noch auf das Tabellenblatt 18, Zelle H 8 eingefügt werden.
Tabelle22.Range("C5").Select
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
For Each bilder In Tabelle22.Shapes
If bilder.Name = "Anmeldebild" Then bilder.Delete
Next
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 178
Selection.ShapeRange.Width = 182
Selection.ShapeRange.Rotation = 0#
Selection.Name = "Anmeldebild"
Danke schon im Voraus.
ich möchte in Excel per VBA oder Makro ein Bild per Button einfügen. Das ist ja noch kein Problem. Aber ich möchte das Bild gerne auf zwei Tabellenblättern einfügen. Den folgenden Code habe ich schon programmiert und das funktioniert (auf dem aktuellen Tabellenblatt), jedoch soll das gleiche Bild noch auf das Tabellenblatt 18, Zelle H 8 eingefügt werden.
Tabelle22.Range("C5").Select
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
For Each bilder In Tabelle22.Shapes
If bilder.Name = "Anmeldebild" Then bilder.Delete
Next
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 178
Selection.ShapeRange.Width = 182
Selection.ShapeRange.Rotation = 0#
Selection.Name = "Anmeldebild"
Danke schon im Voraus.