Вопрос про объект Excel Worksheet в документе Word
Как программно перевести объект Excel Worksheet в режим Edit используя VBA?
Код:
ActiveDocument.InlineShapes(1).OLEFormat.Edit
Если же уверенности в наличии нужного об’екта нет, то перейти в 'режим редактирования' можно, например, так :
Код:
Dim iInlineShape As InlineShape
For Each iInlineShape In ActiveDocument.InlineShapes
If iInlineShape.Type = wdInlineShapeEmbeddedOLEObject Then
If iInlineShape.OLEFormat.ClassType Like "Excel.Sheet*" Then
'iInlineShape.Activate
iInlineShape.OLEFormat.Edit
Exit For
End If
End If
Next
For Each iInlineShape In ActiveDocument.InlineShapes
If iInlineShape.Type = wdInlineShapeEmbeddedOLEObject Then
If iInlineShape.OLEFormat.ClassType Like "Excel.Sheet*" Then
'iInlineShape.Activate
iInlineShape.OLEFormat.Edit
Exit For
End If
End If
Next