Office: ImageMSo auslesen und anzeigen

Hallo zusammen,
ich habe eine Liste aller ImageMso´s und würde gern in einem Userform etweder alle angezeigt bekommen und per Klcik den namen in einem label ausgegeben bekommen, oder eine Liste aller ImageMso (vorhanden) und bei Auswahl von einem das dazugehörige Icon im PictureElemt angezeigt zu bekommen ?

Geht das?

Wenn ja würde ich mich sehr über eine Hilfe freuen.

btw ich meine Office 2007

Gruß
Venom

:)

 

Hallo!

1.:
Für Office 2010 (nicht für Office 2007 geeignet) unter Ribbons für Access 2007 / Access 2010 – 24

2.:
Für Office 2007 (als Add-In) siehe Anhang. Datei entpacken und über den Add-In-Manager einbinden. Im Tab "Entwicklertools" finden sich dann ein paar Menüs.

Für beide:
Nach Auswahl eines Icons erscheint eine Userform mit den Icons (groß und klein). Auf Wunsch kann man die idMso/imageMso in die Zwischenablage oder in die aktive Zelle schreiben lassen. Die imageMso entspricht vom Namen her der idMso.

Gruß, René

P.S.: Alle Icons passen nicht in eine Userform. Sind über 1000 Stück.

 

Und wäre es möglich eine Listbox zu machen und per Auswahl das Bild anzusehen ohne das Addin zu nutzen?

 

Hierzu musst Du die imageMso aus der Übersicht auslesen (Spalte A bei der Übersicht für Office 2007, Splate B bei der Übersicht für Office 2010). Es sind aber mehrere Übersichten (für jedes Officeprogramm eine eigene, viele imageMso sind doppelt eingetragen). Und fragst dann das Icon (zwei Stück jeweils, 16x16 und 32x32) über Application.Commandbars.GetImageMso ab.

Du benötigst.

1 ListView (wird beim Öffnen der Userform gefüllt)
2 Bildanzeigen (Image-Control)
1 Schaltfläche.

Alles in der Übersichtstabelle.

Für die Schaltfläche benötigst Du das folgende Makro.

Code eingefügt mit VBA in HTML 2.0

Aber wie bereits erwähnt ist das sehr aufwändig. Mal abgesehen davon dass bei über tausend Icons (idMso/imageMso) die Listbox sehr unübersichtlich wird.

 

Anbei ein Beispiel. Müsstest Du nur in die Originalübersicht einbauen.

 

Es gibt übrigens eine viel einfachere Möglichkeit.

1. Die Übersicht öffnen
2. Die Zeile 1 vergrößern (eventuell noch fixieren, falls noch nicht geschehen).
3. In Zeile 1 , Spalte A zwei Bildanzeigen einfügen (aus ActiveX-Steuerelemente).
4. In den Codebereich der Tabelle folgenden Code

Code eingefügt mit VBA in HTML 2.0

Wenn Du jetzt in Spalte A auf einen Eintrag doppelklickst, dann wird in den beiden Bildanzeigen das Icon angezeigt. In der ersten Anzeige 16x16, in der zweiten Anzeige 32x32.

 

Hammer.
Danke für diese ausführliche Hilfe.

Gruß

Venom

 

Zunächst erst einmal "Hallo!" ans ganze Forum und vielen Dank für die Zeit und die Mühe, mit denen hier viele Mitglieder Hilfe und Unterstützung leisten!

Hallo Rene!

Auch wenn es schon einige Zeit her ist, aber gerade möchte ich genau sowas machen. Deshalb vielen Dank für deine Anregung! Es geht dabei um in Dateien liegende Symbole (5-6 Gruppen), die an bestimmten Stellen in eine Tabelle eingefügt werden sollen.

Deshalb meine Frage: Wie baut man so etwas auf? Hättest du Lust, mir dabei mit Auszügen, Tipps oder Hinweisen auf die Sprünge zu helfen? Nach den Quellen (Source-Code) zu fragen finde ich immer ein bissl gierig. Außerdem möchte ich auch verstehen, wie das Ganze funktioniert.

Viele Grüße*Smilie

 

Hallo!

So ganz verstehe ich nicht was Du erreichen möchtest.

Gruß, René

 

Ich habe eine Tabelle einem Formular nachgebildet. In diese Tabelle sollen nun an rund 20 möglichen Positionen die ausgewählte Grafik eingefügt werden.

Entweder wird die Position vorher ausgewählt und dann die gewünschte Grafik aus der Auswahl gewählt und in die gewählte Position eingefügt.

Oder (mein favorisierte Lösung) es wird erst ein Grafik ausgewählt und diese dann an der entsprechenden Position "fallen" gelassen.

Hoffentlich habe ich das verständlich beschrieben. Es müssen übrigens nicht alle Positionen mit Grafiken belegt werden, dass hängt vom Einzelfall ab.

Grüße und danke fürs Interesse!*Smilie
Jojo

 

Nachtrag: Ich habe gerade deinen Workshop zu dem Thema entdeckt. Wow, du hast Dir ja unglaubliche Mühe gemacht, dein Wissen zu teilen!*top Darüber steige ich erstmal in das Thema ein und probiere mit Deinen Beispielen ein bissl herum.*biggrin.gif*