Formatowanie screena z telefonu

Sub SetScreenshotSize()
'
' SetScreenshotSize Makro
'
'
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
With Selection.InlineShapes(1)
    .Height = CentimetersToPoints(8.5)
End With
End Sub