' Ausgabe in Word-Dokument starten
Private Sub PrintExcel(excelStr As String, ByVal lines As Integer, ByVal frequency As Double)
Dim Mldg, Stil, Titel, Antwort
Dim z As Integer        ' Schleifenzähler

Dim wdApp As Word.Application
Dim xlObj As Object
'Dim xlObj As Excel.Application

Dim myRange
Set wdApp = New Word.Application
    
    Screen.MousePointer = vbHourglass
    
    With wdApp
        .Documents.Add Template:=App.Path & "\DATA\BOLZEN.doc"
        .ActiveDocument.InlineShapes(1).OLEFormat.DoVerb wdOLEVerbOpen
        Set xlObj = .ActiveDocument.InlineShapes(1).OLEFormat.object
    End With

    With xlObj
        If lines = 11 Then
            xlObj.ActiveSheet.Rows("30:30").Select
            .ActiveSheet.Rows(30).EntireRow.Delete
        End If
        
        xlObj.ActiveSheet.Cells(27, 2).Select
        excelStr = PointCommaStrConvert(excelStr)
        Clipboard.Clear
        Clipboard.SetText excelStr
        xlObj.ActiveSheet.Paste
        Clipboard.Clear
        xlObj.ActiveSheet.Cells(1, 1).Select

Dim maxScale As Integer
Dim maxUnit As Double

        .ActiveSheet.ChartObjects("Diagramm 2").Activate
        .ActiveChart.ChartArea.Select
        .ActiveChart.Axes(xlValue).Select
        With .ActiveChart.Axes(xlValue)
            .MinimumScale = 0
            maxScale = .MaximumScale
            .MaximumScale = (Int(maxScale / frequency) + 1) * frequency
            .MinorUnit = frequency
            maxUnit = (Int(.MaximumScale / frequency / 10)) * frequency 'max 10 Linien für y-Achse
            If maxUnit > frequency Then
                .MajorUnit = maxUnit
            Else
                .MajorUnit = frequency
            End If
            .Crosses = xlCustom
            .CrossesAt = 0
            .ReversePlotOrder = False
            .ScaleType = xlLinear
            .DisplayUnit = xlNone
        End With
        .ActiveChart.SeriesCollection(1).Name = "=""Vorspannkraft"""
    End With

    xlObj.Application.DisplayAlerts = False
   xlObj.Application.Quit
    Set xlObj = Nothing
    
    wdApp.Visible = True
  
    With wdApp
        Set myRange = .ActiveDocument.Paragraphs(.ActiveDocument.Paragraphs.Count).Range
        .ActiveDocument.InlineShapes.AddPicture _
            FileName:=TempDir & "\ActiveWindow.BMP", _
            LinkToFile:=False, SaveWithDocument:=True, Range:=myRange
    End With
    
    Kill TempDir & "\ActiveWindow.BMP"
    Set wdApp = Nothing
    Screen.MousePointer = vbDefault
End Sub

Dim tmp As Object
Set tmp = xlObj.Application
Set xlObj = Nothing
tmp.Quit