Bild einfügen in anderes Tabellenblatt
30.06.2016 11:28:37
Rene
bei mir kommt immer eine Fehlermeldung, ich habe ein Button in Tabelle "Plan" und er soll in Tabelle "Neues_Layout" switchen und Zelle B9 auswählen aber kommt immer eine Fehlermeldung.
Anbei der Code.
Private Sub CommandButton1_Click()
'Fügt Bilder der Falschachtel ein
Worksheets("Neues_Layout").Range ("B9")
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 378
Selection.ShapeRange.Width = 378
Selection.ShapeRange.ZOrder msoSendToBack
Selection.ShapeRange.Rotation = 0#
ActiveSheet.Shapes.Range("b9").Select
End Sub
lg
Rene
Anzeige