wie kann man die Position eines Bildes mit einem simplen VBA Code anpassen?
Danke schön
Public Sub test()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle2")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle1")
Dim pic As Shape
'Bestimmtest Bild kopieren...
WsQ.Shapes("Grafik 2").Copy
With WsZ
'..einfügen...
.Paste
End With
ActiveSheets.Shapes("Grafik 2").Top = 400
End Sub
ActiveSheets.Shapes("Grafik 2").Top = 400
sondern
ActiveSheet.Shapes("Grafik 2").Top = 400
Gruß Matthias