Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

eigene symbolleiste, einfügen des symbols....

eigene symbolleiste, einfügen des symbols....
28.08.2003 12:45:53
rahel
hallo zusammen

ich will eine eigene symbolleiste mit "gefühls-icons" basteln.
ein icon ist z.b. eine bombe, ein anderer ein smiley usw. ich
habe bereits alle möglichen schaltflächen-icons durchsucht und
auch passende gefunden. mein problem ist folgendes:
wenn z.b. zelle A1 aktiv ist und ich auf den smiley-icon klicke,
soll in zelle A1 das selbe smiley-symbol eingefügt werden?
ich hab keine ahnung ob das geht und wenn ja, wie...

gruss, rahel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FaceID leicht gemacht!
28.08.2003 12:58:07
Willie
https://www.herber.de/bbs/user/760.zip

Ich habe da vor geraumer Zeit etwas ausgegraben!
Vielleicht hilft dir das bei der Auswahl deiner FaceID!
Jedoch nicht unbedingt beim einfügen. Das einfügen
muß du sowieso über ein Makro lösen!
Gruß

Willie
die faceID ist nicht das problem
28.08.2003 13:05:25
rahel
hallo

1. das tool funktioniert nicht
2. die faceID's sind nicht das problem, ich weiss welche ich brauche, habe selbst ein tool geschrieben, welches mir alle möglichen schaltflächen auflistet.
3. mein problem ist: wie erreiche ich, dass beim klick auf ein symbol der schaltfläche das symbol in der aktiven zelle erscheint?

gruss, rahel
Anzeige
AW: die faceID ist nicht das problem
28.08.2003 13:20:17
Willie
Eben durch ein Makro so wie in der Mappe!
die werden ja auch druch ein Makro in die Zellen geschreiben...


Sub deinmenüeinfügen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim Endkundenformular As CommandBarControl
Dim Mb As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).index
Set Endkundenformular = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, Temporary:=True)
Endkundenformular.Caption = "Endkunden&formular"
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Smile einfügen"
.Style = msoButtonIconAndCaption
.OnAction = "DeinMarko" ' Hier kommt der Name deiner Sub
.BeginGroup = True
.FaceId = 23
End With
End Sub



Sub deinmenüausblenden()
Application.CommandBars(1).Reset
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige