Статьи из блога

Макрос пропорционального изменения размеров формул

Иван спрашивает:

В документе WORD есть около 300-400 формул. Необходимо сделать их пропорциональными то есть высота и ширина должны быть более-менее похожы. Одни формулы имеют больший размер а другие маленький.

Как можно для каждой формулы применить определенный процент ширины и высоты отталкиваясь от стандартного измерения?

Поскольку формулы редактора Word представляют собой графические объекты, то предлагаемый ниже макрос очень похож на макрос из заметки Макрос массового уменьшения размеров всех рисунков с небольшим отличием:

Sub changeFormulas()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 150
     .ScaleWidth = 150
  End With
Next iShape
End Sub

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 3

  1. 31.03.2010 в 10:02 | #1

    Спасибо!

  2. 01.04.2010 в 12:50 | #2

    Иван, может Вам пригодится статья Нумерация формул средствами Math Type из http://benoni.mylivepage.ru/file

  3. Svetlaya
    01.09.2010 в 22:14 | #3

    Разобралась, спасибо большое автору!!!!!!!!!!!!

Оставьте комментарий!

(обязательно)

^ Наверх