Om man med VBA i Word vill infoga en bild på visst ställe eller ändra egenskap på vald bild vilka funktioner och liknande skall man använda?

Testade spela in ett macro och fick fram följande kod som jag modifierat lite....

Sub RezisePicture()

Dim StartSizeW, StartSizeH, RezisedW, RezisedH

StartSizeW = Selection.InlineShapes(1).Width
StartSizeH = Selection.InlineShapes(1).Height

RezisedW = StartSizeW * 0.65
RezisedH = StartSizeH * 0.65

With Selection.InlineShapes(1)
    .Height = RezisedH
    .Width = RezisedW
End With

End Sub

När man klistrar in en bild så skalar Word den automatiskt, hur kan man få reda på hur stor den är vid 100%?

/T

Kul att svara på sina egna inlägg.....

Googlade lite och hittade följande

'-------------------------------------------------
'Ändra storlek på skärmdump till 65%
'-------------------------------------------------
Sub RezisePicture()
Application.ScreenUpdating = False

If Selection.Type = wdSelectionInlineShape Then

With Selection.InlineShapes(1)
    .ScaleHeight = 65
    .ScaleWidth = 65
End With

End If
Application.ScreenUpdating = True
End Sub