Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoShapeTyp

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

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