1 Тема от mikkelle

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

Тема: Масштаб OLE объекта

OLE Объект вставлен в документ как InlineShape. Каким образом получить масштаб данного объекта, указываемый в окне "Формат объекта", вкладка "Размер", раздел "Масштаб". Там изначально указаны масштабы по высоте и ширине выделенного объекта.
Запрос 

? Selection.InlineShapes(1).ScaleHeight

выдает значение 0.

И в догонку.
Как управлять изменением масштаба? Даже если свойству объекта LockAspectRatio задать значение True, то все равно при изменении ScaleHeight или ScaleWidth изменяется только соответсвующий показатель, нарушая пропорции объекта?

2 Ответ от Вождь

  • Масштаб OLE объекта
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Масштаб OLE объекта

Извлекаем масштаб из диалога:

Dim O As InlineShape
Dim D As Dialog

    Set O = ActiveDocument.InlineShapes(1)
    Set D = Application.Dialogs(wdDialogFormatPicture)
    O.Select
    D.Execute
    MsgBox D.ScaleX & " " & D.ScaleY

Масштабирование InlineShape:
- отключаем O.LockAspectRatio
- выставляем O.ScaleHeight и O.ScaleWidth
- включаем LockAspectRatio.
Еще есть O.Reset.

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь