1 Тема от pobat

  • pobat
  • сержант
  • Неактивен
  • Зарегистрирован: 14.06.2011
  • Сообщений: 17

Тема: Ошибка 4680. wdDialogFormatDrawingObject

Помогите разобраться в двух простых макроса Word 2003:

В документе вставлена картинка в формате jpeg
1. Макрос

Sub PictureTools1()

Dim V As Word.Dialog

    Set V = Application.Dialogs(Word.wdDialogFormatPicture)
    V.Show

End Sub

вызывает меню
Ошибка 4680. wdDialogFormatDrawingObject
вот так выглядит иконка через Сервер - Настройка
Ошибка 4680. wdDialogFormatDrawingObject
Тут всё работает  - хорошо

2. Макрос

Sub PictureTools2()

Dim b As Word.Dialog

    Set b = Application.Dialogs(Word.wdDialogFormatDrawingObject)
    b.Show

End Sub

вот так выглядит иконка через Сервер - Настройка
Ошибка 4680. wdDialogFormatDrawingObject
Так выглядит окно меню
Ошибка 4680. wdDialogFormatDrawingObject
но почему то при запуске макроса у меня вылезает ошибка:
Ошибка 4680. wdDialogFormatDrawingObject



Вот и не знаю что делать?
Почему wdDialogFormatDrawingObject не работает? Хотя если вставить объект Visio - то всё работает хорошо.

2 Ответ от Kreol2013

  • Kreol2013
  • лейтенант
  • Неактивен
  • Зарегистрирован: 18.02.2013
  • Сообщений: 59
  • Поблагодарили: 2

Re: Ошибка 4680. wdDialogFormatDrawingObject

Сам сталкивался с подобными траблами, иногда, и скорее всего так оно и есть, при составлении моделей в vba просто забывают их менять или дописывать.
Грубо говоря, в новой версии ворда появилась дополнительная функция например вращения картинки, а в vbf есть описание только для смещения влево и вправо, размера и тд.
Это правда только догадка, но думаю от истины совсем не далеко.