Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoShapeTyp

AutoShapeTyp
09.04.2008 11:42:52
Gregor
Hallo
Ich habe eine Excelsheet mit vielen Textfeldern mit Schriftfgrösse Arial 5. Ich möchte nun bei allen Textfeldern die Schriftgrösse auf Arial 8 wechseln. Wie kann ich das per VBA lösen.
Wenn ich ein Textfeld anklicke und per VBA-Recorder aufzeichne, erhalte ich folgenden Code:
ActiveSheet.Shapes("Text Box 936").Select.
Vielen Dank für eure Unterstützung.
Gruss
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoShapeTyp
09.04.2008 12:06:00
Wolli
Hallo Gregor, versuche mal dieses Makro!

Sub test()
Dim t As TextBox
On Error Resume Next
For Each t In ActiveSheet.TextBoxes
t.Font.Size = 8
Next t
On Error GoTo 0
End Sub


Gruß, Wolli

AW: AutoShapeTyp
09.04.2008 12:36:51
Gregor
Hallo Wolli
Herzlichen Dank, funktioniert wie gewünscht!!
Gregor
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige