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

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

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

В документе 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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

Еще записи по вопросам использования 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

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

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

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

^ Наверх