Hej jag undrar om det finns nån som kan lösa detta?

Jag har lagt in 4st lika stora bilder på varandra i excel.
Nu vill jag kunna välja vilken bild som skall visas.
Hur gör man för att få tag på bilden i VB och flytta vald bild överst alternativt göra en synlig och de andra osynliga?

Tacksam får hjälp!

Leif P

Först döper du bilderna till något smart. Från början heter de "Object 1" osv.
(Jag antar att du vet hur man skriver makron i allmänhet)

Sub BytBild
Dim ObjektNamn as String
Dim Bild as Shape
ObjektNamn=Range("A1") 'Detta får du anpassa
For Each Bild In Shapes 'Har du andra bilder får du göra på andra
'sätt. Exempelvis köra med siffror...
If Bild.Name=ObjektNamn then
Bild.visible=true
else
Bild.visible=false
end if
Next
End sub

/Niklas Jansson

Liten förenkling:

If Bild.Name=ObjektNamn then
Bild.visible=true
else
Bild.visible=false
end if

Kan skrivas:

Bild.visible = (Bild.Name=ObjektNamn)

Annars så var det mycket snygg kod... :O)

Tackar så mycket för hjälpen. Efter lite modifikation gjorde jag så här.

Select Case sType
Case "S"
Excelapp.Worksheets("Wi " & Chr(Asc("A") + iCurrSheet - 1)).Shapes("Type S").ZOrder 0
Case "TP", "TE", "TEE"
Excelapp.Worksheets("Wi " & Chr(Asc("A") + iCurrSheet - 1)).Shapes("Type T1").ZOrder 0
Case "TEN"
Excelapp.Worksheets("Wi " & Chr(Asc("A") + iCurrSheet - 1)).Shapes("Type T2").ZOrder 0
Case "CTC", "CTCE"
Excelapp.Worksheets("Wi " & Chr(Asc("A") + iCurrSheet - 1)).Shapes("Type D").ZOrder 0
Case "TPU"
Excelapp.Worksheets("Wi " & Chr(Asc("A") + iCurrSheet - 1)).Shapes("Type T3").ZOrder 0

End Select

Leif P