Re: Schaltflächenbeschriftung
15.01.2003 14:02:32
Franz W.
Hallo Udo aus'm Pott,vielleicht magst Du ja noch mal nach München antworten :-) ?!? Ich habe noch Probleme mit Deinem Tipp, da fehlt mir noch ein bisschen Ahnung: Ich habe Deinen Vorschlag in das Makro, das an den Button angehängt ist, mit reingeschrieben (oder hätte das woanders hinsollen?). Es hat aber nicht geklappt und darum habe ich mit dem Rekorder probiert und jetzt folgende Lösung, die läuft:
ActiveSheet.Shapes("Button 6").Select
Selection.Characters.Text = """Werte vom "" & Date"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Nun kämpfe ich noch mit dem Text: Wie bitte bekomme ich hin, dass auf dem Button nicht steht: "Werte vom & Date", sondern tatsächlich "Werte vom 15.01.2003" ??
Danke im Voraus
Gruß
Franz