Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не вставляется объект microsoft web browser в документ wordа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Не вставляется объект microsoft web browser в документ wordа
Не вставляется объект microsoft web browser в документ wordа
tvitaly1 Дата: Вторник, 24.07.2018, 08:46 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Здравствуйте.
Проблема со вставкой объекта microsoft web browser в документ wordа 2016. Выдается сообщение: "вставка этого объекта невозможна согласно параметрам политики". На word 2010 все проходит. ActiveX все включены. Кому-то удалось вставить рассматриваемый компонент в офис старше 2010. Если удалось, то каким способом?
Тут есть о причинах, но я мало понимаю что и как Переход по ссылке


Сообщение отредактировал tvitaly1 - Вторник, 24.07.2018, 13:26
 
Ответить
СообщениеЗдравствуйте.
Проблема со вставкой объекта microsoft web browser в документ wordа 2016. Выдается сообщение: "вставка этого объекта невозможна согласно параметрам политики". На word 2010 все проходит. ActiveX все включены. Кому-то удалось вставить рассматриваемый компонент в офис старше 2010. Если удалось, то каким способом?
Тут есть о причинах, но я мало понимаю что и как Переход по ссылке

Автор - tvitaly1
Дата добавления - 24.07.2018 в 08:46
Manyasha Дата: Вторник, 24.07.2018, 10:24 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2193
Репутация: 892 ±
Замечаний: 0% ±

Excel 2010, 2016
tvitaly1,
Тут есть о причинах

там говорится о том, что данный элемент управления является устаревшим, для его использования предлагают отредактировать реестр.

Опишите, что вы пытаетесь сделать и зачем? Может есть альтернативное решение.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеtvitaly1,
Тут есть о причинах

там говорится о том, что данный элемент управления является устаревшим, для его использования предлагают отредактировать реестр.

Опишите, что вы пытаетесь сделать и зачем? Может есть альтернативное решение.

Автор - Manyasha
Дата добавления - 24.07.2018 в 10:24
tvitaly1 Дата: Вторник, 24.07.2018, 11:40 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Спасибо. Вот зачем.

Тихвинский В.И.
ВСТАВКА В WORD GIF ФАЙЛОВ ИЗОБРАЖАЮЩИХ АНИМАЦИЮ
В документ Word возможно вставить интерактивные файлы Gif.

Недостаток в том, что работать они на ранних версиях программы будут в режиме отключения всех макросов с уведомлением. Т.е. определенный уровень работы макросов должен быть обеспечен. На современных версиях Word рисунки могут работать и с отключенными макросами, даже если файл Word-а сохранен без поддержки макросов, но при внедрении картинок вам все равно придется включить макрорежим. Второй недостаток, Gif картинка должна быть достаточно небольшая, что бы помещалась по ширине на страницу документа, иначе ее не будет видно всю. Третий недостаток в том, что Gif файлы должны находится вне документа Word.
Для вставки интерактивного Gif необходимо сперва вставить элемент ActiveX называемы WebBrowser (из набора дополнительных элементов Microsoft Web Browser), размер элемента пользователь изменяет мышью в режиме конструктора.
После вставки элемента необходимо программно прошить в его свойство Navigate2 путь к файлу Gif. Файл может находиться на вашем компьютере, в той же папке, где лежит ваш документ.
В другом случае ссылка делается на файл, лежащий в интернете. Ниже приведен пример кода, который должен находиться в модуле ThisDocument вашего документа.
Подпрограмма с именем Document_Open() будет запускаться каждый раз при загрузке вашего файла в Word. Если вы перетащите ваш документ в другую папку вместе с файлом с именем “Рис. 3.gif”, то подпрограмма автоматически переопределит ссылку на него.
Ссылка на второй Gif файл записана как константа, и после выполнения кода, строчка в подпрограмме
[vba]
Код
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"
[/vba]
может быть уничтожена, путь к файлу сохранится в свойстве Navigate2 объекта WebBrowser2.

[vba]
Код
Private Sub Document_Open()

'Путь к папке, где лежит документ
Dim path
path = Application.ActiveDocument.path + "\"

'Первый объект управления (Microsoft Web Browser), вставленный в активный документ
'задаем полное имя файла gif, которой лежит в той же папке, что и активный документ
WebBrowser1.Navigate2 path + "Рис. 3.gif"

'Второй объект управления (Microsoft Web Browser), вставленный в активный документ
'ссылка на картинку в интернете
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"

End Sub
[/vba]

Событийная подпрограмма Document_Open удобна для интерактивного переопределения ссылок на файл GIF, если вы планируете размещать GIF файлы в конкретной папке или на конкретном ресурсе в интернет, то можно вообще не писать код в тот файл, в котором вы размещаете анимированные GIF файлы. Макрос записанный ниже не только вставляет объект WebBrowser в документ, но и прописывает в свойстве Navigate2 путь к GIF файлу. Размер объекта WebBrowser пользователю придется подправить вручную.

[vba]
Код
Sub ВставитьОбъектДляGif()
'
' ВставитьОбъектДляGif Макрос
' Макрос записан 21.07.2018 Тихвинский
'
Dim e As InlineShape, s As String

s = InputBox("Введите ссылку к файлу GIF или нажмите Cancel", "Ввод ссылки к файлу GIF")
If s <> "" Then

Set e = Selection.InlineShapes.AddOLEControl(ClassType:="Shell.Explorer")
e.OLEFormat.Object.Navigate2 s

Set e = Nothing
End If

End Sub
[/vba]


Сообщение отредактировал tvitaly1 - Вторник, 24.07.2018, 13:06
 
Ответить
СообщениеСпасибо. Вот зачем.

Тихвинский В.И.
ВСТАВКА В WORD GIF ФАЙЛОВ ИЗОБРАЖАЮЩИХ АНИМАЦИЮ
В документ Word возможно вставить интерактивные файлы Gif.

Недостаток в том, что работать они на ранних версиях программы будут в режиме отключения всех макросов с уведомлением. Т.е. определенный уровень работы макросов должен быть обеспечен. На современных версиях Word рисунки могут работать и с отключенными макросами, даже если файл Word-а сохранен без поддержки макросов, но при внедрении картинок вам все равно придется включить макрорежим. Второй недостаток, Gif картинка должна быть достаточно небольшая, что бы помещалась по ширине на страницу документа, иначе ее не будет видно всю. Третий недостаток в том, что Gif файлы должны находится вне документа Word.
Для вставки интерактивного Gif необходимо сперва вставить элемент ActiveX называемы WebBrowser (из набора дополнительных элементов Microsoft Web Browser), размер элемента пользователь изменяет мышью в режиме конструктора.
После вставки элемента необходимо программно прошить в его свойство Navigate2 путь к файлу Gif. Файл может находиться на вашем компьютере, в той же папке, где лежит ваш документ.
В другом случае ссылка делается на файл, лежащий в интернете. Ниже приведен пример кода, который должен находиться в модуле ThisDocument вашего документа.
Подпрограмма с именем Document_Open() будет запускаться каждый раз при загрузке вашего файла в Word. Если вы перетащите ваш документ в другую папку вместе с файлом с именем “Рис. 3.gif”, то подпрограмма автоматически переопределит ссылку на него.
Ссылка на второй Gif файл записана как константа, и после выполнения кода, строчка в подпрограмме
[vba]
Код
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"
[/vba]
может быть уничтожена, путь к файлу сохранится в свойстве Navigate2 объекта WebBrowser2.

[vba]
Код
Private Sub Document_Open()

'Путь к папке, где лежит документ
Dim path
path = Application.ActiveDocument.path + "\"

'Первый объект управления (Microsoft Web Browser), вставленный в активный документ
'задаем полное имя файла gif, которой лежит в той же папке, что и активный документ
WebBrowser1.Navigate2 path + "Рис. 3.gif"

'Второй объект управления (Microsoft Web Browser), вставленный в активный документ
'ссылка на картинку в интернете
WebBrowser2.Navigate2 "http://tvitaly1.ucoz.ru/ris-4.gif"

End Sub
[/vba]

Событийная подпрограмма Document_Open удобна для интерактивного переопределения ссылок на файл GIF, если вы планируете размещать GIF файлы в конкретной папке или на конкретном ресурсе в интернет, то можно вообще не писать код в тот файл, в котором вы размещаете анимированные GIF файлы. Макрос записанный ниже не только вставляет объект WebBrowser в документ, но и прописывает в свойстве Navigate2 путь к GIF файлу. Размер объекта WebBrowser пользователю придется подправить вручную.

[vba]
Код
Sub ВставитьОбъектДляGif()
'
' ВставитьОбъектДляGif Макрос
' Макрос записан 21.07.2018 Тихвинский
'
Dim e As InlineShape, s As String

s = InputBox("Введите ссылку к файлу GIF или нажмите Cancel", "Ввод ссылки к файлу GIF")
If s <> "" Then

Set e = Selection.InlineShapes.AddOLEControl(ClassType:="Shell.Explorer")
e.OLEFormat.Object.Navigate2 s

Set e = Nothing
End If

End Sub
[/vba]

Автор - tvitaly1
Дата добавления - 24.07.2018 в 11:40
tvitaly1 Дата: Вторник, 24.07.2018, 12:08 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010

там говорится о том, что данный элемент управления является устаревшим, для его использования предлагают отредактировать реестр.

Скажите пожалуйста, а значение реестра тут менять?
К сообщению приложен файл: 0822836.png(105.0 Kb)
 
Ответить
Сообщение

там говорится о том, что данный элемент управления является устаревшим, для его использования предлагают отредактировать реестр.

Скажите пожалуйста, а значение реестра тут менять?

Автор - tvitaly1
Дата добавления - 24.07.2018 в 12:08
Manyasha Дата: Вторник, 24.07.2018, 13:39 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2193
Репутация: 892 ±
Замечаний: 0% ±

Excel 2010, 2016
tvitaly1, а вариант сохранить как веб-страницу (.html), а потом в браузере открыть не подойдет?


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеtvitaly1, а вариант сохранить как веб-страницу (.html), а потом в браузере открыть не подойдет?

Автор - Manyasha
Дата добавления - 24.07.2018 в 13:39
tvitaly1 Дата: Вторник, 24.07.2018, 14:27 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Manyasha, да, так можно. Но это будет не в формате worda, и просматривать анимацию нужно будет в интернет браузере. Если открыть в Worde, как web сраницу или web страницу, анимация все-равно не заработает. Что то еще word не доработали. :) Кроме того, рассматриваемый объект можно использовать не только в документе, но и в формах. Может какой-то новый есть альтернативный объект для word 2013 и дальше?
 
Ответить
СообщениеManyasha, да, так можно. Но это будет не в формате worda, и просматривать анимацию нужно будет в интернет браузере. Если открыть в Worde, как web сраницу или web страницу, анимация все-равно не заработает. Что то еще word не доработали. :) Кроме того, рассматриваемый объект можно использовать не только в документе, но и в формах. Может какой-то новый есть альтернативный объект для word 2013 и дальше?

Автор - tvitaly1
Дата добавления - 24.07.2018 в 14:27
tvitaly1 Дата: Среда, 25.07.2018, 00:19 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003, Excel 2010
Ура! Нашел контрл работающий во всех офисах WindowsMediaPlayer.
Объек WindowsMediaPlayer может использоваться для создания gif анимации в документе word. WindowsMediaPlayer объект из дополнительного набора объектов ActiveX. В окне свойств WindowsMediaPlayer можно задать URL для гифки. В свойстве custom задать none(без элементов управления) и количество повторений, также задается автозапуск. Для зацикливания всех анимации всех гифок в модуле ThisDocument в событийной подпрограмме Document_Open() прописывается соответствующий фрагмент кода (см. код ниже). К сожалению переопределять зацикливания анимации приходится программно, после каждого нового запуска документа Word. Если gif файл с анимацией находится не в интернет ресурсе, а расположен в папке, где находится документ, то URL нему определяется программно (см. фрагмент кода ниже) .

[vba]
Код
Private Sub Document_Open()
'определение путь к файлу документа
Dim path
path = ActiveDocument.path  + "\"
'программное задание свойства URL определяющее адрес для gif файла для объекта WindowsMediaPlayer1
'предполагается что файл с именем MyFile.gif лежит в той же директории, что и документ
WindowsMediaPlayer1.URL = path + "MyFile.gif"

'установка зацикливание для всех элементов WindowsMediaPlayer
Dim e,i
For i = 1 To ActiveDocument.InlineShapes.Count
On Error GoTo m1
'устанавливаем указатель на объект
Set e = ActiveDocument.InlineShapes(i).OLEFormat.Object
If InStr(e.Name, "WindowsMediaPlayer") <> 0 Then 'Если в имене объекта содержится текст WindowsMediaPlayer
e.settings.setMode "loop", True   'Устанавливаем зацикливание
End If
'снимаем указатель
Set e = Nothing
m1:
Next i

End Sub
[/vba]
К сообщению приложен файл: 4093288.png(26.3 Kb)


Сообщение отредактировал tvitaly1 - Среда, 25.07.2018, 13:00
 
Ответить
СообщениеУра! Нашел контрл работающий во всех офисах WindowsMediaPlayer.
Объек WindowsMediaPlayer может использоваться для создания gif анимации в документе word. WindowsMediaPlayer объект из дополнительного набора объектов ActiveX. В окне свойств WindowsMediaPlayer можно задать URL для гифки. В свойстве custom задать none(без элементов управления) и количество повторений, также задается автозапуск. Для зацикливания всех анимации всех гифок в модуле ThisDocument в событийной подпрограмме Document_Open() прописывается соответствующий фрагмент кода (см. код ниже). К сожалению переопределять зацикливания анимации приходится программно, после каждого нового запуска документа Word. Если gif файл с анимацией находится не в интернет ресурсе, а расположен в папке, где находится документ, то URL нему определяется программно (см. фрагмент кода ниже) .

[vba]
Код
Private Sub Document_Open()
'определение путь к файлу документа
Dim path
path = ActiveDocument.path  + "\"
'программное задание свойства URL определяющее адрес для gif файла для объекта WindowsMediaPlayer1
'предполагается что файл с именем MyFile.gif лежит в той же директории, что и документ
WindowsMediaPlayer1.URL = path + "MyFile.gif"

'установка зацикливание для всех элементов WindowsMediaPlayer
Dim e,i
For i = 1 To ActiveDocument.InlineShapes.Count
On Error GoTo m1
'устанавливаем указатель на объект
Set e = ActiveDocument.InlineShapes(i).OLEFormat.Object
If InStr(e.Name, "WindowsMediaPlayer") <> 0 Then 'Если в имене объекта содержится текст WindowsMediaPlayer
e.settings.setMode "loop", True   'Устанавливаем зацикливание
End If
'снимаем указатель
Set e = Nothing
m1:
Next i

End Sub
[/vba]

Автор - tvitaly1
Дата добавления - 25.07.2018 в 00:19
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Не вставляется объект microsoft web browser в документ wordа
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!