1
Word összes kép átméretezése és szöveg elé
Egy olyan automatizmust akartam bevezetni a Wordbe, hogy az összes képet átméretezze és a szöveg körbefuttatása pedig szöveg elé kerüljön: Private Sub Document_New() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 25 .ScaleWidth = 25..