title image


Smiley Re: Bilder automatisch auf eine bestimmte Größe skalieren?
Hallo Georg,



handelt es sich um Inlineshapes (schwarze Ziehpunkte) oder Shapes (weiße)?

Hier ein Grundgerüst für beide Möglichkeiten, es werden alle Grafiken auf 50% verkleinert.

Sub ScaleInlineShapes()

Dim shpI As InlineShape

'

For Each shpI In ActiveDocument.InlineShapes

With shpI

.ScaleHeight = 50

.ScaleWidth = 50

End With

Next

End Sub

'

Sub ScaleShapes()

Dim shp As Shape

'

For Each shp In ActiveDocument.Shapes

With shp

.ScaleHeight 0.5, msoFalse

.ScaleWidth 0.5, msoFalse

End With

Next

End Sub      Hubert

Jedes Betriebsystem hat sein allgegenwaertiges Maskottchen:

Unix den Daemon,

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: