Hast Du's denn schon versucht ?
Hier ein Beispiel mit einem 'Image'-Control in einer Excelmappe.
Dim i& Private Sub Image1_Click()Option Explicit
Code eingefügt mit Syntaxhighlighter 1.13
Select Case i + 1
Case 1: Image1.Picture = LoadPicture("C:\DeinPfad\Bitmap1.bmp")
Case 2: Image1.Picture = LoadPicture("C:\DeinPfad\Bitmap2.bmp")
Case 3: Image1.Picture = LoadPicture("C:\DeinPfad\Bitmap3.bmp")
End Select
i = i + 1
End Sub
Gruß
Thomas
Risi Thomas Softwareentwicklung
Thomas.Risi@t-online.de
z.B.
for i=1 to Anzahl
image(i).picture=LoadPicture(.....)
next i
Hier mußt Du mit einer Collection arbeiten. Folgendes Makro liest alle 'Image'-Objekte in eine Collection 'Images' ein. Dann kann man indiziert darauf zugreifen. Mehr Infos hierzu findest Du auf meiner Homepage.
Dim Images As New Collection Sub GetImages() For Each i In Sheets(1).OLEObjects Sub MachWasMitImages() For i = 1 To Images.CountOption Explicit
Code eingefügt mit Syntaxhighlighter 1.13
Dim i As OLEObject
Dim myImage As MSForms.Image
If i.ProgId = "Forms.Image.1" Then
Set myImage = i.Object
Images.Add myImage
End If
Next
End Sub
Dim i&
MsgBox Images(i).Name
Next i
End Sub
Gruß
Thomas
Risi Thomas Softwareentwicklung
Thomas.Risi@t-online.de