Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Menu in Userform Bilder einsetzen

Menu in Userform Bilder einsetzen
12.01.2018 13:22:23
Olga
Hallo,
der Code stammt von Nepumuk.
Wie kann ich bei fType ein Bild z.B Mso("FileSave", 24, 24)
Danke!
Mfg
Olga
With MnuItem
' 2. Submenüpunkt, 2. Hauptmenü
.fMask = MIIM_TYPE Or MIIM_ID Or MIIM_CHECKMARKS Or MIIM_STATE
.fType = MF_STRING ' Text als Menüpunkt ( ev. Bitmap)
.fState = MF_CHECKED ' Haken gesetzt
.wID = 220& ' Eindeutige ID
.hSubMenu = 0 ' enthält kein Submenü
.dwTypeData = "&Über" ' Menütext
' Menüpunkt ins 2. Submenü einfügen
InsertMenuItem lngSub, 2&, True, MnuItem
End With

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menu in Userform Bilder einsetzen
12.01.2018 15:11:54
Nepumuk
Hallo,
lade eine Mustermappe mit deinem funktionierenden Menü hoch dann bau ich dir morgen Bilder ein.
Gruß
Nepumuk
AW: Menu in Userform Bilder einsetzen
12.01.2018 16:26:06
Olga
Hallo Nepumuk,
anbei eine reduzierte Mappe.
Vielen herlichen Dank, für Deine Hilfe.
Mfg
Olga

Die Datei https://www.herber.de/bbs/user/118907.xlsm wurde aus Datenschutzgründen gelöscht


AW: Menu in Userform Bilder einsetzen
13.01.2018 10:59:45
Olga
Hall Nepumuk,
vielen Dnk für Deine Hilfe.
Echt Super von Dir.
Mfg
Olga
Anzeige
AW: Menu in Userform Bilder einsetzen
13.01.2018 15:44:22
Kasimir
Hallo Ihr beiden!
Sorry, dass ich mich hier mit einklinke, aber ich habe da mal eine Frage an Nepumuk. Kann man den Menüeinträgen eigentlich auch gleich das MSO-Image zuweisen oder muss das immer über den Umweg eines Controls sein?
Ich hoffe auf eine Antwort und sage schon mal Danke.
MfG,
Kasimir
AW: Menu in Userform Bilder einsetzen
13.01.2018 16:58:26
Nepumuk
Hallo Kasimir,
das Bild muss erst in ein Control denn das Format für das Menü muss ein Bitmap sein, GetImageMso gibt ein Format zurück welches nicht passt. Welches weiß ich auch nicht genau, wahrscheinlich ein WMF.
Gruß
Nepumuk
AW: Menu in Userform Bilder einsetzen
13.01.2018 17:15:58
Kasimir
Hallo Nepumuk!
Danke Dir für Deine Antwort. Schönes Wochenende noch.
MfG,
Kasimir
Anzeige
AW: Menu in Userform Bilder einsetzen
13.01.2018 21:08:20
Planlos
Hallo
mit der Api CopyImage könnte es gehen. 

'Deklaration
Private Declare Function CopyImage Lib "USER32.DLL" _
( _
ByVal h As Long, _
ByVal ltype As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal Flags As Long _
) As Long
'In der betrffenden Funktion dann dann z.B.
.fMask = MIIM_STRING Or MIIM_BITMAP Or MIIM_ID
.fType = MF_STRING Or MFT_BITMAP
.fState = 0 ' MF_CHECKED
.hbmp = CopyImage(Application.CommandBars.GetImageMso("FilePrint", 32, 32).Handle, 0, 32,  _
32, 0)

AW: Menu in Userform Bilder einsetzen
14.01.2018 09:43:03
Nepumuk
Hallo,
stimmt, damit geht's.
Gruß
Nepumuk
AW: Menu in Userform Bilder einsetzen
14.01.2018 09:54:03
olga
Hallo Zusammen,
wie muss ich den
MIIM_STRING Or MIIM_BITMAP oder .hbmp
deklarieren.
Bei mir kommt immer eine Fehlermeldung
Danke, für Eure Hilfe.
Gruß
Olga
Anzeige
AW: Menu in Userform Bilder einsetzen
14.01.2018 10:29:29
Nepumuk
Hallo Olga,
du brauchst nichts ändern. Hier nochmal der Code für die ersten beiden Menüpunkte:
.fMask = MIIM_TYPE Or MIIM_ID Or MIIM_CHECKMARKS Or MIIM_STATE '1. Submenüpunkt, 1. Hauptmenü
.fState = MF_CHECKED
.hbmpChecked = CopyImage(Application.CommandBars.GetImageMso("FilePrint", 32, 32).Handle, 0, 32, 32, 0)
.wID = 101&
.hSubMenu = 0
.dwTypeData = "&Neu"
InsertMenuItem lngSub, 0&, True, MnuItem
.fState = 0
.hbmpChecked = 0


.fMask = MIIM_TYPE Or MIIM_ID Or MIIM_CHECKMARKS Or MIIM_STATE
.fState = MF_CHECKED
.hbmpChecked = CopyImage(Application.CommandBars.GetImageMso("NewWorkspaceGallery", 32, 32).Handle, 0, 32, 32, 0)
.wID = 102&
.hSubMenu = 0
.dwTypeData = "&Alt"
InsertMenuItem lngSub, 1&, True, MnuItem
.fState = 0
.hbmpChecked = 0


Gruß
Nepumuk
Anzeige
AW: Menu in Userform Bilder einsetzen
14.01.2018 10:54:53
olga
Vielen Dank!
Gruß
Olga
AW: Menu in Userform Bilder einsetzen
14.01.2018 11:09:50
Nepumuk
Noch was,
du kannst die Größe der Icons beeinflussen:
.hbmpChecked = CopyImage(Application.CommandBars.GetImageMso("FilePrint", 32, 32).Handle, 0, 16, 16, 0)
Gruß
Nepumuk
AW: Menu in Userform Bilder einsetzen
14.01.2018 11:41:48
olga
Hallo Nepumuk,
Danke für Deine Unterstützung.
Was mich nur verwundert ist die Tatsache, dass bei einem Button kein weisser Rahmen um das Bild ist, im Menue jedoch schon.
Gruß
Olga
AW: Menu in Userform Bilder einsetzen
14.01.2018 11:54:16
Nepumuk
Hallo Olga,
weil ein Bitmap keine transparenten Farben haben kann.
Gruß
Nepumuk
AW: Menu in Userform Bilder einsetzen
14.01.2018 12:46:50
Planlos
Hallo
ein Bitmap kann eine transparente Farbe besitzen (32bit bmp's), nur die Funktion ...GetImageMso.. erzeugt ein Bitmap wo die Backgroundfarbe mal auf weiss gesetzt wird. Man könnte jetzt eine transparente 32bit bmp via loadimge laden, nur schauts im ersten Moment nicht so schick aus, u.U muss man dann mit z.b. GDI/GDIP die Hintegrundfarbe basierend auf der Menufarbe selbst zeichnen.
Anzeige
AW: Menu in Userform Bilder einsetzen
14.01.2018 13:38:53
olga
Hallo,
Danke an Euch beide.
Es ist nur für meinen Gebrauch und damit kann ich mich abfinden.
Gruß
Olga

302 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1