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

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

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

Рубрика: Вопрос-Ответ, Макросы
Метки: |
Воскресенье, 6 июля 2008 г.
Просмотров: 1149
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]


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

В документе 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 Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>

Это может пригодиться:

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

  1. Benoni
    31.03.2010 в 10:02 | #1

    Спасибо!

  2. Benoni
    01.04.2010 в 12:50 | #2

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

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

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

контакты

 
Number one designer
^ Наверх