|
Hallo,
ich füge aus Irfanview eine Grafik in Word ein und möchte diese in den Vordergrund verschieben. Es handelt sich um eine Beschriftung, die immer auf einem anderen Bild sichtbar sein soll. Händisch muss ich folgendes tun:
- Grafik markieren
- Rechtsklick auf Grafik
- "Textumbruch" --> "Vor den Text"
Das ganze möchte ich automatisieren: Aufs Bild klicken, Tastenkürzel drücken (das dem Makro zugewiesen ist) und fertig. Beim nächsten Bild wieder...
Folgenden Quellcode habe ich schon probiert, das funktioniert aber nicht, es passiert einfach gar nichts. Ich bin zwar kein VBA Experte, kann aber vorhandenen Quellcode modifizieren oder zumindest grob verstehen. Hier klappt's aber nicht - es passiert einfach gar nichts...
Sub VorDenText
Dim ils as Word.InlineShape
Dim shp as Word.Shape
Set ils = ActiveDocument.InlineShapes(1)
Set shp = ils.ConvertToShape
shp.WrapFormat.Type = wdWrapNone
shp.ZOrder msoBringToFront
End Sub
An der Grafik wird kein Ankersymbol angezeigt, daher vermute ich, es ist kein Shape, sondern ein InlineShape. Was ich allerdings nicht weiß, ist, welche Nummer (1) das aktuell ausgewählte Ding hat. Ist das immer die 1 bzw. falls nicht, wie finde ich sie heraus, kann ja auch bei jedem Bild/Dokument anders sein. Oder gibt es eine Möglichkeit, das ganze nur für das aktuell selektierte Bild zu auszuführen?
Vielen Dnk für Eure Hilfe...
Grüße,
Christian
|