expression.Script
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example displays the type of scripting language used in the first shape on the active worksheet.
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