Как в Excel ВНЕДРИТЬ("Word.Document.12";"") объект с помощью макроса - VB

Узнай цену своей работы

Формулировка задачи:

Необходимо создать объект ("Word.Document.12";"") с помощью макроса и вставить в объект текст, методом copy - paste

Решение задачи: «Как в Excel ВНЕДРИТЬ("Word.Document.12";"") объект с помощью макроса»

textual
Листинг программы 
Private Sub CommandButton1_Click()
Range("A1").Copy
Dim x As OLEObject
Set x = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document", Link:=True _
        , DisplayAsIcon:=False, Left:=433.5, Top:=129, Width:=171, Height:=82.5)


'дальнейшее просто для иллюстрации работы с внедренным документом
x.Verb              'активировать внедренный документ
x.Object.Range.Paste

ActiveCell.Activate 'вернуться к текущему листу
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы