Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Text-Ausrichtung in Shape

VBA Text-Ausrichtung in Shape
16.05.2021 13:55:34
W
Hallo Forum,
ich brauche wieder einmal die Unterstützung von Profis.
Ich habe eine Shape "Type:=msoShapeActionButtonCustom" erstellt. Jetzt möchte ich den Text darin noch ausrichten.
Bisher habe ich folgende Einstellungen vorgenommen:
.TextFrame2.HorizontalAnchor = msoAnchorCenter
.TextFrame2.VerticalAnchor = msoAnchorMiddle
Allerdings ist es mir bisher nicht gelungen, einen mehrzeiligen Text so auszurichten, dass die Worte pro Zeile zentriert sind; alle Zeilen sind linksbündig ausgerichtet.
Welche Option muss ich setzen, um dieses Ziel zu erreichen?
Bild davon: Userbild
Gruß
Werner

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Text-Ausrichtung in Shape
16.05.2021 14:35:01
Dieter(Drummer)
Hllo Werner,
ichgehöre nicht zu den Spezialisten, aber evtl hilft dir das schon weiter.
Diesen Teil mal ersetzen:
  • .VerticalAnchor = msoAnchorMiddle

  • .VerticalAnchor = msoAnchorMiddle

    • Sonst habe kann ich nicht weiter helfen.
    Gruß, Dieter(Drummer)
    PS In Excel 2010 klappte es.
    AW: Sorry Werner, war Blödsinn ... owT
    16.05.2021 14:39:18
    Dieter(Drummer)
    AW: Sorry Werner, war Blödsinn ... owT
    16.05.2021 15:50:06
    W
    Hallo Dieter.
    ich habe mir Deine Antwort mindestens 10 mal angeschaut, und habe gesucht, wo der Unterschied zwischen alt und neu sein sollte.
    Bin erst jetzt wieder "Online".
    Gruß und trotzdem "Danke"
    Werner
    AW: VBA Text-Ausrichtung in Shape
    16.05.2021 14:43:33
    Jowe
    Hallo Werner,
    versuch mal:
    
Sub testCenterTextt()
Dim shp As Shape
Dim myText As String
Dim myTLenght As Long
myText = "Hi," & vbCr & "mein Freund" & vbCr & "wie geht's Dir?"
myTLength = Len(myText)
With ActiveSheet
Set shp = .Shapes.AddShape(msoShapeActionButtonCustom, 50, 30, 60, 60)
End With
With shp
.TextFrame2.TextRange.Text = myText
.TextFrame2.TextRange.Characters(1, myTLength).ParagraphFormat.Alignment = msoAlignCenter
End With
End Sub
    Gruß
    Jochen
    Anzeige
    AW: VBA Text-Ausrichtung in Shape
    16.05.2021 16:12:41
    W
    Hallo Jochen,
    Danke, das war der richtige Hinweis.
    Zuerst hatte ich die Zeile
    .TextFrame2.HorizontalAnchor = msoAnchorCenter
    entfernt, und danach die von Dir vorgeschlagene Zeile
    .TextFrame2.TextRange.Characters(1, myTLength).ParagraphFormat.Alignment = msoAlignCenter
    eingefügt.
    Jetzt bin ich mit dem Ergebnis zufrieden. So hatte ich mir das vorgestellt.
    Ich habe versucht, den neuen Befehl zu verstehen, besonders ".Characters(1, myTLength)." verstehe ich nicht ganz, da die Variable mytLength zum Zeitpunkt der Ausführung leer ist. Googel kennt den Begriff "myTLength" nicht.
    Gruß Werner
    Anzeige
    AW: Gerne, danke für die Rückmeldung
    16.05.2021 17:33:40
    JoWE
    ...weil "myTLength" in meinem Beispiel ja auch eine frei gewählte Variable zur Aufnahme der Zeichenanzahl des Textes im Shape ist. Kann Google also natürlich nicht kennen :=)
    Übrigens:
    "TextFrame2.TextRange.Characters(1, myTLength).ParagraphFormat.Alignment = msoAlignCenter"
    soll den Text ab dem 1. bis zum letzten Zeichen zentriert in das Shape-Element setzen.
    Aber wenn es so funktioniert, ist ja alles prima!.
    Gruß
    Jochen

    301 Forumthreads zu ähnlichen Themen

    Hintergrundfarbe in Zahl umwandeln
    Timo

    Hallo zusammen.
    Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
    Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
    07.08.2008 19:30:00
    Thread-ID: 1000082
    4 Beiträge
    Anzeige
    Zahl vorn/hinten vom Text trennen + Komma
    StefanK

    Hallo Excel-Freunde
    ich möchte gern per Formel folgendes lösen:
    in zelle a3 steht
    1 haley, bill rock around the clock 1956
    jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
    in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
    25.09.2008 19:00:21
    Thread-ID: 1012407
    12 Beiträge
    Textbox Ausgabe als Zahl bzw. Zeit formatieren
    Steffan

    Hallo ihr lieben,
    ich schreib jetzt schon den ganzen Tag an folgender Routine:
    Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
    28.09.2008 20:12:56
    Thread-ID: 1012988
    6 Beiträge
    Anzeige
    Zahlen rechtsbündig in einer Textbox
    Helmut

    Hallo,
    ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
    Text= "Beisiel: " & Format (Zahl,"#,###")
    Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
    Gruß
    Helmut
    04.11.2008 11:57:00
    Thread-ID: 1021556
    2 Beiträge
    Zahl eingeben und per VBA formatieren
    Herbert

    Hallo Gemeinde
    Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
    soll die Zahl in der Form JJ/###A umgewandelt werden.
    Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
    P...
    05.11.2008 16:08:10
    Thread-ID: 1021969
    12 Beiträge
    Textzahl umwandeln
    Stephan

    Hallo zusammen,
    ich habe folgendes Problem:
    Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
    10.11.2008 11:12:00
    Thread-ID: 1023147
    22 Beiträge
    Nur Zahlen in sehr vielen Textboxen
    uli

    Hallo,
    habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
    Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
    13.11.2008 10:24:00
    Thread-ID: 1024091
    3 Beiträge
    TextBox Inhalte sollen Zahlen sein
    Frank

    Hallo Zusammen!!!
    Mit folgendem Code:
    Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
    17.11.2008 21:37:00
    Thread-ID: 1025414
    8 Beiträge

    Links zu Excel-Dialogen

    Frame

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    5
    11
    5
    3
    1
    11
    21
    2
    7
    4
    3
    3
    2
    1
    8
    5
    4
    21
    3
    5
    2
    2
    6
    4