Grafikgröße mit einem Makro ändern

02/09/2008 - 17:03 von Viola Vockrodt-Scholz | Report spam
Für ein Layout mit ca. 20 Grafiken sollen die Grafiken alle auf die gleiche
Größe gebracht werden. Die Makrofunktion làsst eine Größenànderung von
Grafiken in Word nicht zu.
Wie kann ich dies dennoch lösen? In VBA gibt vielleicht doch eine
Möglichkeit über die picture-Eigenschaften?

Ich freue mich über eine Lösung.

Viola
 

Lesen sie die antworten

#1 Helmut Weber
02/09/2008 - 17:36 | Warnen spam
Hallo Viola,

für den zweit-einfachsten Fall:

Sub Test5b()
Dim oDcm As Document
Dim oInl As InlineShape
Dim oShp As Shape
Set oDcm = ActiveDocument
For Each oInl In oDcm.InlineShapes
oInl.Width = 100
oInl.Height = 100
Next
For Each oShp In ActiveDocument.shapes
oShp.Width = 100
oShp.Height = 100
Next
End Sub

Da gibt es aber viele Möglichkeiten für Komplikationen.


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen