Readdy Write

🎬 Word Scale Foto 100 Prozent

23.07.2018 (👁3714)


Word: Foto in der Skalierung auf 100% anpassen

Wie kann man per Macro vba Code ein Foto in Word automatisch auf die Größe 100% zurücksetzen.

Problem:

Es kann sein, dass Fotos beim Einfügen automatisch scheinbar verkleinert werden.

Dabei ist in wirklichkeit nur die Size-Größe auf 30% eingestellt. Die Ursache für die Vordefinition weiß ich noch nicht.

Jedenfalls kann man mit vba-Word Makro Code alle Fotos wieder auf die dargestellte 100% anpassen.

Hierzu setzt man einfach die ScaleWidth auf 100

objInlineShape.ScaleWidth = 100

Problem: beim Einfügen wird das Foto automatisch verkleinert.

 

'--< replace as Thumb.jpg >--

'*pasteBitmap is much smaller

cell_Range.PasteSpecial DataType:=wdPasteBitmap, Placement:=wdInLine

Set objInlineShape = cell_Range.Cells(1).Range.InlineShapes(1)

objInlineShape.ScaleWidth = 100

'--</ replace as Thumb.jpg >--



 


0,00 €