Свойство Shape.Script (Word)
Возвращает объект Script , представляющий блок скрипта или кода для изображения на веб-странице.
выражение. Script
выражение (обязательно). Переменная, представляющая объект Shape .
Если веб-страница не содержит скрипта, ничего не возвращается.
В этом примере показан тип языка сценариев, используемый в первой фигуре активного документа.
Set objScr = ActiveDocument.Shapes(1).Script
If Not (objScr Is Nothing) Then
Select Case objScr.Language
Case msoScriptLanguageVisualBasic
MsgBox "VBScript"
Case msoScriptLanguageJava
MsgBox "JavaScript"
Case msoScriptLanguageASP
MsgBox "Active Server Pages"
Case Else
Msgbox "Other scripting language"
End Select
End If
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.