Script 属性

返回 Script 对象，该对象代表指定 Web 页上的一段脚本或代码。如果该 Web 页中不包含任何脚本，则没有返回内容。

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例显示活动工作表上第一个图形中使用的脚本语言类型。

Set objScr = ActiveSheet.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