Indizierte Tool-Bezeichnungen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Indizierte Tool-Bezeichnungen
von: Ina
Geschrieben am: 06.11.2003 22:03:40

Hallo Forum!

Gibt es eigentlich die Möglichkeit ein Element wie z.B. ein Image mit Index ansprechen zu können?
Ich möchte z.B. in Abhängkeit eines Wertefelds mit 100 Feldern 100 Images mit verschiedenen Bildern füllen.

schön wäre:

for i = 1 to 100
tabelle1.image(i).picture=....
next i

Wäre ein Quantensprung für mich!

Gruß
Ina

Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Nepumuk
Geschrieben am: 06.11.2003 23:21:26

Hallo Ina,
mit einem Index geht es nicht. Aber alle Elemente in der richtigen Reihenfolge zu durchlaufen funktioniert so:

Option Explicit
Public Sub test()
    Dim myOLEObjekt As OLEObject
    For Each myOLEObjekt In Worksheets("Tabelle1").OLEObjects
        If myOLEObjekt.ProgId = "Forms.Image.1" Then myOLEObjekt.Object.Picture = LoadPicture("D:\Eigene Dateien\Eigene Bilder\tippex2193.jpg")
    Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: K.Rola
Geschrieben am: 06.11.2003 23:54:24

Hallo Nepumuk,

meinst du, dass du das richtig verstanden hast? Was sollte
es für einen Sinn haben, immer das gleiche Bild zu laden?

Gruß K.Rola


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Nepumuk
Geschrieben am: 07.11.2003 00:09:39

Hallo K.Rola,

das sollte doch nur verdeutlichen wie es im Prinzip funktioniert. In Ina's Anfrage war die Schleife ähnlich aufgebaut.

Gruß
Nepumuk


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: K.Rola
Geschrieben am: 07.11.2003 00:19:52

Hallo Nepumuk,

eine Art Index kann man türken, indem man erstmal alle Images
in eine Collection einliest.

Gruß K.Rola


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Nepumuk
Geschrieben am: 07.11.2003 05:40:32

Hallo K.Rola,

Collection? ich dachte das gibt es nur in der Kirche. Das muss ich esrst mal testen wie das funktioniert, damit habe ich bisher noch nicht gearbeitet.

Gruß
Nepumuk


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Ina
Geschrieben am: 07.11.2003 12:14:23

Hallo!

Nepomuk, Danke für den Vorschlag, ich denke damit komme ich weiter.

@K. Rola:
Wie kann ich mir das Einlesen in eine Collection vorstellen?

Gruß Ina


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Nepumuk
Geschrieben am: 07.11.2003 18:00:03

Hallo Ina,

das geht so:

Option Explicit
Public myCollection As New Collection
Public Sub test1()
    Dim myOLEObject As OLEObject
    For Each myOLEObject In Worksheets("Tabelle1").OLEObjects
        If myOLEObject.ProgId = "Forms.Image.1" Then myCollection.Add myOLEObject
    Next
    test2
End Sub
Public Sub test2()
    Dim intIndex As Integer
    For intIndex = 1 To myCollection.Count
        MsgBox myCollection.Item(intIndex).Name
    Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: Indizierte Tool-Bezeichnungen
von: Ina
Geschrieben am: 08.11.2003 13:17:51

Danke Nepomuk, das ist es was ich suche!

Gruß Ina


Bild

Beiträge aus den Excel-Beispielen zum Thema " Formate werden nicht gespeichert"