Einfügen kopieren in VB

[pc000]

Ich möchte aus einem Excel File etwas hinaus kopieren und ins Paint einfügen. Ich habe dazu folgenden Code geschrieben. Leider funktioniert der nicht.

Sub Bild()

Dim test As Variant



Cells.Select
Selection.Copy
test = Shell("C:\Windows\System32\mspaint.exe", 1)
ActiveSheet.Paste
ActiveWorkbook.Save

End Sub

[HeikoBerlin]

Hi pc000
Das kann nicht funzen, wenn Du alle Zellen markierst.
Vielleicht nicht perfekt, aber bei mir funktionsfähig:
(das 2. Bild heisst dan natürlich "Picture 2")

ActiveSheet.Shapes("Picture 1").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Shell "C:\Windows\System32\mspaint.exe", 1
SendKeys "%BE"

[pc000]

OK.

Danke werds mal ausporbieren.