Може ли едновременно да намаля снимки качени в word, които излизат извън формата на листа?

Question

Има ли начин едновременно да намаля снимки качени в word, които излизат извън формата на листа?

Краси Кръстев · Accepted Answer

Здравей, Диана.

Може да изпозваш този VBA код, който ще направи всички вмъкнати от теб снимки с размерите - 300 / 300.

```
Sub SetupAllPictureSize()
  Dim objInlineShape As InlineShape
  Dim objShape As Shape

For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Height = 300
    objInlineShape.Width = 300
  Next objInlineShape

For Each objShape In ActiveDocument.Shapes
    objShape.Height = 300
    objShape.Width = 300
  Next objShape
End Sub
```

Може да пробмениш тези числата в VBA кода, съответно колкото задеш в кодата толкова ще са размерите на картинките, след прилагана на VBA кода.

Запиши се в Аула