Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

msoControlButton

msoControlButton
11.07.2006 15:20:15
AndreasB
Guten Tag zusammen!
Kann ich in einem "msoControlButton" griechische Zeichen
z.b. phi oder alpha
einfügen?
Schöne Grüße und Danke
Andreas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: msoControlButton
11.07.2006 15:29:43
Jan
Hi,
als Icon.
mfg Jan
AW: msoControlButton
11.07.2006 15:39:09
AndreasB
Hallo Jan,
da ich kein Excelprofi bin, verstehe ich Deine Antwort leider nicht.
Ich habe Dir mein Makro unten angefügt und die Stelle wo ein phi anstatt
eines f stehen soll gekennzeichnet.
Könntest Du mir bitte weiterhelfen!
Danke und schöne Grüße
Andreas

Sub Bsp()
Dim Befehlsleiste As CommandBar
Dim Befehlsleistenknopf As CommandBarButton
Dim Popupsteuerelement As CommandBarPopup
Dim Befehlsleistenname As String
Befehlsleistenname = "Querschnitte"
On Error Resume Next
Application.CommandBars(Befehlsleistenname).Delete
On Error GoTo 0
Set Befehlsleiste = Application.CommandBars.Add(Befehlsleistenname, msoBarFloating, False, True)
With Befehlsleiste
.Left = 950
.Visible = True
End With
Set Befehlsleistenknopf = Befehlsleiste.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "01f06"  'hier sollte für das f ein phi stehen!!!
.BeginGroup = True
.FaceId = 0
.OnAction = "01f06"
.State = 0
.Style = 2
End With
End Sub

Anzeige
AW: msoControlButton
11.07.2006 16:31:11
Jan
.Caption = ChrW(934)'für Phi
Unter Windows XP funktioniert das, ob auch unter anderen Windowsversionen weiß ich nicht.
mfg Jan
Dankeschön werde es probieren! o.T.
11.07.2006 16:37:47
AndreasB
AW: msoControlButton
11.07.2006 18:17:05
Peter
Hallo Andreas,
so sollte es gehen: Me.CommandButton1.Caption = "01" & ChrW(934) & "06"
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige