Word macro - visu paveikslu dydzio nuresetinimas i 100%

word uzseiviname naujausiu formatu kad nebutu vompability mode. Einame i view -> macro  ir sukuriame funkcija

  Sub AllGraphicsTo100()

      Dim ILS As Word.InlineShape
      Dim SHP As Word.shape

      For Each ILS In ActiveDocument.InlineShapes
        If ILS.Type = wdInlineShapePicture Or ILS.Type = wdInlineShapeLinkedPicture Then
            ILS.ScaleHeight = 100
            ILS.ScaleWidth = 100
        End If
      Next ILS

      For Each SHP In ActiveDocument.Shapes
        If SHP.Type = msoPicture Or SHP.Type = msoLinkedPicture Then
            SHP.ScaleHeight 1#, True
            SHP.ScaleWidth 1, True
        End If
      Next SHP

    End Sub