none
Excel Makro RRS feed

  • Frage

  • Guten Tag,

    ich habe folgrndes Makro geschrieben.

    Sub Hinweispfeil()

    ActiveSheet.Shapes.AddShape(msoShapeRightArrowCallout, 39, 18.75, 120.75, 61.5).Select

    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset7

    Selection.ShapeRange(1).TextFrame2.TextRange.Caracters.Text = "Hinweis auf dem letzten Blatt"

        With Selection.ShapeRange(1).TextFame2.TextRange.Caracters(1, 32)

        .ParagraphFormat

        .FirstLineIdent = 0

        .Alignment = msoAlignLeft

        End With

            With Selection.ShapeRange(1).TextFame2.TextRange

            .Caracters(9, 24).Font.NameComplexScript = "+mn-cs"

            .NameFarEast = "+mn-ea"

            .Fill.Visible = msoTrue

            .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1

            .Fill.ForeColor.TintAndShade = 0

            .Fill.ForeColor.Brightness = 0

            .Fill.Transparency = 0

            .Fill.Solid

            .Size = 11

            .Name = "+mn-lt"

            End With

    Selection.ShapeRange.ScaleHeight0 0.7, msoFalse, msoScaleFromTopLeft

    Selection.ShapeRange.ScaleWidth0 0.9, msoFalse, msoScaleFromTopLeft

    Selection.ShapeRange.Shado.Type = msoShado27

    Selection.ShapeRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText

    End Sub

    Ab der Zeile

    "With Selection.ShapeRange(1).TextFame2.TextRange.Caracters(1, 32)"

    bekomme ich folgende Fehlermeldung.

    Kann mir jemand weiter helfen?

    Montag, 8. Januar 2018 12:32

Alle Antworten

  • Jetzt wäre schon noch die Fehlermeldung interessant.
    Wenn du den Debugmode verwendest, kannst du die Inhalte vor Ausführung des Statements im "Direktfenster" anzeigen. Dann merkst du auch, welche Fehler auftraten können oder z.B. eine Auflistung 0- oder 1-basiert ist.
    Montag, 8. Januar 2018 15:16