Commandbutton Schriftart ändert sich nicht
10.01.2004 16:21:19
Karen
ich habe in einem Sheet Commandbuttons eingefügt. Deren Schriftart möchte ich mit nachfolgendem Code ändern.
For Each cb In Worksheets(1).OLEObjects
With cb
cb.Object.TakeFocusOnClick = False
cb.Object.Font.Size = 10
cb.Object.Font.Bold = False
cb.Object.Font.Name = "ExtraS 3"
cb.Object.Caption = "s"
End With
Next cb
Die Änderung der Schriftart wird theoretisch durchgeführt: im Eigenschaftsfenster wird die neue Schriftart ExtrasS 3 angezeigt. Leider ändert sich die Schriftart nicht direkt auf dem Commandbutton. Diese ändert sich erst dann, wenn ich direkt auf den Commandbutton klicke, ins Eigenschaftsfenster gehe und dort noch einmal font aktiviere und ok drücke. (Da ich 256*2 Buttons habe ist die manuelle Anpassung etwas mühselig).
Das Caption wird durch den obigen Code geändert.
Vielen Dank schon einmal für Eure Hilfe
Karen