- Dann gibt es bei Rechtsklick auf die Grafiken den Befehl
„Bild speichern unter“.
Hallo Madrom,
mit Vba kann man auch in Word diesen Befehl bei Rechtsklick auf die Grafik haben. Der Befehl startet dann das nachfolgende Makro.
Wie man den Befehl in das Kontextmenu einbaut kommt später, teste ihn erstmal aus.
Alt+F11, klicke links auf „Normal“, denn Einfügen–Modul, in das aufgehende Modulfenster kopierst du den nachfolgenden Code. Entferne evtl. Anhängsel von w-w-w ala „…mehr auf …“
Klicke oben links auf das Diskettensymbol, dann ist der Code in der Normal.dot gespeichert.
Wechsel jetzt mit Alt+F11 in deine Doc, markiere die Grafik, mit Alt+F11 in das Modul, stelle den Cursor mitten in den Code und drücke F5…
Jetzt müßte Irvanview loslegen…
Achja, Irfanview brauchst du, findest du kostenlos im I-Net.
Ggfs. Pfad zu Irfanview im Code abändern.
Gruß
Reinhard
Option Explicit
Sub Bild()
Dim Irfan
Selection.CopyAsPicture '(kein Unterschied zu .Copy sichtbar.
Irfan = Shell("C:\Program Files\IrfanView\i\_view32.exe", vbMaximizedFocus)
SendKeys "^vs"
End Sub