AW: Habe selbst Lösung gefunden
09.09.2020 18:54:56
Dieter(Drummer)
Hallo Mark,
zu deinen Fragen:
1) Picture einfügen, über "Einfügen/Grafik"
2) Screenshot: Grafik 1 markieren, Bildtools/Format/Farbe
Dann direkt mit Tasten Strg+Druck geht es in den Zwischenspeicher. Die Tasten müssen nur ziemlich schnell gedrückt werden, den das Bild verschwindet auch sehr schnell.
Hier meine laienhafte Lösung, die aber perfekt funktioniert. Spezialisten/innen können den Code sicher kürzen/vereinfachen.
Gruß, Dieter(Drummer)
Einfach Grafik 1 markieren und Makro aufrufen:
Sub Bildfarbe_wecheln()
Application.SendKeys ("%JE")
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Down}", True
SendKeys "{Right}", True
SendKeys "{Right}", True
SendKeys "{Right}", True
SendKeys "{ENTER}", True
End Sub
PS Im Netz gibt es bisher keine Lösungsvorschläge, ich habe keine gefunden.