Syntax-Problem
18.11.2021 08:20:09
Robert
Ich möchte gern einen Tabellenbereich als Grafik mit der Funktion "Start" - "Kopieren..." - "Als Bild kopieren" in ein anderes Sheet einfügen.
Ich möchte aber vermeiden, das erst das andere Sheet in den Fokus gesetzt werden muss.
Mein Versuch, der aber misslingt... Laufzeitfehler '438' ... Ich seh bestimmt den Wald vor lauter Bäumen nicht....
Private Sub cb_LogPicOut_Click()
Dim strShapeName As String
strShapeName = "LogOut"
Range("K10:M21").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
If ShapeExists(Sheets("Log-Import"), strShapeName) Then
Sheets("Log-Import").Shapes(strShapeName).Delete
End If
If ShapeExists(Sheets("output"), strShapeName) Then
Sheets("output").Shapes(strShapeName).Delete
End If
With Sheets("Log-Import").Range("K23")
.Pictures.Paste.Name = strShapeName
End With
With Sheets("output").Range("B2")
.Pictures.Paste.Name = strShapeName
End With
End Sub
Anzeige