Makro Screenshot

[ExcelIngo]

Hallo zusammen, ich würde gerne ein Makro erstellen, dass:

1. Die Option Bildschirmausschnitt bzw Screenshot öffnet und ich dann beliebig einen screenshot machen kann
2. Der Screenshot in die Zelle eingefügt wird (ungefähr passgenau), von wo aus ich das Makro mit einem ActiveX Steuerelement gestartet habe.

Meine Frage an euch, ist das möglich, zumindest Punkt Nr. 1?
Vielen Dank,

Ingo

[Elex]

Hi

mit

SendKeys "%"
SendKeys "i"
SendKeys "i"
SendKeys "c"


kannst du Nr1 starten.

Gruß Elex

[ExcelIngo]

Hallo Elex,

damit klappt es leider nicht. "Code kann im Haltemodus nicht ausgeführt werden".

[Elex]

Hi

im Haltemodus geht das nicht. Aber warum braucht es den.
So geht es bei mir recht gut. (Excel 2010)

Code:

Public Sub Test1()  'Screenshot Auswahl starten
Dim Timeralt

Timeralt = Timer + 6

'TastenKombi evtl. an Excel 2016 anpassen
SendKeys "%"  'Alt
SendKeys "i"  'i
SendKeys "i"  'i
SendKeys "c"  'c
  Do
    DoEvents
  Loop While Timer < Timeralt

'ab hier der Code um den Screenshot zu platzieren
'Code ??
Selection.ShapeRange.Top = Range("H8").Top
Selection.ShapeRange.Left = Range("H8").Left
End Sub

Gruß Elex