Thema Datum  Von Nutzer Rating
Antwort
10.05.2023 18:44:43 Denzi
NotSolved
Blau Kopie beschriften
10.05.2023 20:48:12 Gast30959
NotSolved
10.05.2023 20:59:40 Gast3374
NotSolved

Ansicht des Beitrags:
Von:
Gast30959		 Datum:
10.05.2023 20:48:12		 Views:
209		 Rating:
     
Antwort:
  Ja
Thema:
Kopie beschriften 
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 192.3749606299, _
        320.25, 72, 72).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "X"
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).ParagraphFormat. _
        FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).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 = 714
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange.ScaleWidth 3.6200822723, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 5.4465408805, msoFalse, _
        msoScaleFromBottomRight
    Selection.ShapeRange.ScaleWidth 1.7257925896, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.8112262495, msoFalse, msoScaleFromTopLeft
    ActiveWindow.SmallScroll Down:=-12
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
    Selection.ShapeRange.Fill.Visible = msoFalse

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.05.2023 18:44:43 Denzi
NotSolved
Blau Kopie beschriften
10.05.2023 20:48:12 Gast30959
NotSolved
10.05.2023 20:59:40 Gast3374
NotSolved