VBA - USER DEFINED FUNCTIONS

OBJEKTE:   OLE

Public Sub OLE_EINFÜGEN_FORMEL()
Sheets("OLE_OBJEKT").OLEObjects.Add("Equation.3").Name = "neu"
With Sheets("OLE_OBJEKT").OLEObjects("neu")
    .Left = 10 'Größe und Position
    .Top = 10
    .Width = 50
    .Height = 50
    .Activate 'OLE-Objekt bearbeiten
End With
Sheets("OLE_OBJEKT").[A1].Activate
End Sub

Public Sub OLE_EINFÜGEN_WORDTEST()
Dim WinWord As Word.Application
With ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
    DisplayAsIcon:=False)
    .Name = "WORD_NEU"
    .Activate
End With
'Sheets("OLE_OBJEKT").OLEObjects("WORD_NEU").Activate
Set WinWord = Sheets("OLE_OBJEKT").OLEObjects("WORD_NEU").Object.Application
With WinWord
    .Selection.TypeText "Neuer Text" + vbCrLf
End With
Sheets("OLE_OBJEKT").[A1].Activate
End Sub