Help on macro

[g***@gmx.de]

Hallo,
ich weiß nicht sonderlich viel über VBA, aber vielleicht kann jemand von euch die Aufgabe im handumdrehen lösen.
Das Macro soll durch alle Bilder gehen, dies auf eine relative Größe skalieren, die "Seitenverhältnis sperren" Option abschalten und als AddOn ein bestimmtes Format aus der Formatvorlage anwenden.
Ist das schwierig? Wenn nicht, kann jemand ein Bespiel oder vielleicht sogar eine Lösung liefern? Ich wäre sehr dankbar, da mir die Zeit davon rennt.

Thx greenux

[Rainer H. Rauschenberg]

Post by g***@gmx.de
Das Macro soll durch alle Bilder gehen, dies auf eine relative Größe
skalieren,

Sub test()
Dim skalier
Dim ils As InlineShape ' Das sind die Graphiken im Textfluss,
' für Über-den-Text-Objekte ist es "Shape"
skalier = 0.5
For Each ils In ActiveDocument.InlineShapes
ils.Width = ils.Width * skalier
ils.Height = ils.Height * skalier
Next
End Sub

Post by g***@gmx.de
die "Seitenverhältnis sperren" Option abschalten und als AddOn ein
bestimmtes Format aus der Formatvorlage anwenden.

Kannst Du jeweils aufzeichnen und versuchen in obiges einzubauen. :-)