Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Bild Farbe wechseln

Forumthread: VBA Bild Farbe wechseln

VBA Bild Farbe wechseln
06.09.2020 17:35:15
Dieter(Drummer)
Guten Tag VBA Spezislisten/innen.
Iste es möglch per VBA Code ein Picture, hier "Grafik 1", eine andere Farbe zu geben und wenn ja, wie wäre der Code?
Im Netz habe ich nichts passendes gefunden und per Code Aufzeichnung geht es nicht.
Grund:
Manuell geht das nur über:
1) Bild markieren
2) Bildtools/Format/Farbe
3) Farbe aus gezeigter Vorlage wählen.
Dies kann ich nicht per Code aufzeichen.
Anbei meine Musterdatei: https://www.herber.de/bbs/user/140072.xlsm
Mit der Bitte um Hilfe grüßt,
Dieter(Drummer)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Bild Farbe wechseln
07.09.2020 19:16:06
Marc
Hallo Dieter,
kannst du mir mal sagen, mit welcher Dateiendung (.jpg, .png, etc) du jeweils den Button "1" und den Screenshot eingefügt hast?
Gruß Marc
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.
Anzeige
AW: Habe selbst Lösung gefunden
09.09.2020 19:23:07
Daniel
ja ein altes VBA-Problem.
nicht alle Neuerungen werden auch sofort im Recorder umgesetzt, so dass diese aufzeichbar sind.
insbesondere bei Grafikbearbeitung hinkt der Recorder oft hinterher (besonders stark betroffen Excel 2007).
ggf kannst du dir das SendKeys vereinfachen, wenn du nicht mit Tab und Cursor zu den einzelnen Positionen gehst, sondern die Menüs und Untermenüs über ALT+Buchstabe aufrufst.
Gruß Daniel
Anzeige
AW: Da seh ich keine Buchstaben
09.09.2020 19:43:25
Dieter(Drummer)
Hallo Daniel,
Danke für deine Info. Wenn die "Farbe", mit "Bildtools/Format/Farbe", aufgerufen ist, sehe ich keine Hinweise von Buchstaben, die ich mit Taste Alt+Buchstabe aufrufen könnte.
Eine Lösung wäre auch, wenn per Inputbox eingegeben könnte, wie oft nach unten und nach rechts gesprungen werden soll. So könnte man anzprechende Farbe selektieren und Grafik damit färben. Das liegt aber nicht in meinen VBA Möglichkeiten.
Gruß, Dieter(Drummmer)
Anzeige
AW: Da seh ich keine Buchstaben
09.09.2020 20:12:40
Daniel
sorry, hast recht.
du hast das mit dem ALT da wo es geht ja schon gemacht, da hab ich nicht genau hingeschaut, sorry
Gruß Daniel
AW: Da seh ich keine Buchstaben
09.09.2020 20:28:07
Dieter(Drummer)
Kein Problem; Daniel.
Gruß, Dieter(Drummer)
AW: Habe selbst Lösung gefunden: Ergänzung
11.09.2020 14:03:12
Dieter(Drummer)
Hallo Marc,
nur noch zur Info: Statt Tasten Strg+Druck kann Du auch Alt+Druck Tasten nutzen.
Bei Tasten Strg+Druck, geht der ganze Bildschirm in den Zwischenspeicher und bei Alt+Druck, nur das Fenster, dass Du gerade aufgrufen hast.
Gruß, Dieter(Drummer)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige