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

Здравей, Вера.

Може вече да си нанесла всички изображения в файла и да им направиш с един и същ размер.

Ето например този:

Sub SetupAllPictureSize()
  Dim objInlineShape As InlineShape
  Dim objShape As shape

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

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

VBA код може да направи това вместо теб. Работи като всеки един друг VBA код, поставя се в VBA редактора и се стартира.

В редовете, променяйки стойностите променяш съответно какви точно да бъдат размерите по височина и по дължина на изображенията.

Имам предвид тези:

    objInlineShape.Height = 250
    objInlineShape.Width = 300

Много благодаря за отговора! Ето че отново отговорът на мой въпрос е във VBA код :) Признавам си, струва ми се сложно, но определено интересно. В конкретният случай и заглавната ми страница е възприета като картинка и в резултат на приложения код е смалена до размера на останалите.

Здравей, Вера.

Първоначално всичко изглежда сложно, но стъпка по-стъпка нещата стават все по-разбираеми в процеса на обучение и работа.

Макросите са нещо много приятно, за конкретния случай само трябва да се поразтърсиш и винаги ще намериш нещо, което да ти помогне за да си решиш проблема автоматизирано. Понякога се налага и лека промяня в в кода, но за стандартни процедира винаги изкача нещо :)

Да VBA кода е направен така че да обхваща всичко, така че ако в заглавната страница имаш подобен елемент, то той се е променил.

Наистина съм привърженик на оптимизацията на времето и когато нещо може да стане по по-умен начин, ме радва :) Благодаря за отговора!

Моля!

Супер е че ти е свършил работа кода пък и супер че разсъждаваш така за автоматизацията на работния процес!