Opgelost Veranderen van de afbeelding in een shape werkt niet goed

[Henk Pietersma]

Ik ben bezig met het bouwen van een spel in Excel. Er zijn 2 dobbelstenen nodig, dus ik heb 2 shapes op het werkblad gezet. Die wil ik met VBA laden. Ik heb namelijk 6 bitmapjes (dobbelsteen1.bmp t/m dobbelsteen6.bmp) die ik telkens wil gebruiken om in de shape te laden. Alleen daar begint het probleem: dat laden lukt niet. Het werkte maar één keer en daarna wordt geen nieuwe afbeelding meer geladen.
Weet iemand hoe ik dat moet oplossen? Hierbij de code die ik tot nog toe heb gebouwd.

Public Function GooiDeDobbelstenen() As Single
    ' Deze functie gooit de 2 dobbelstenen
    Dim Dobbelsteen1 As Integer, Dobbelsteen2 As Integer, Filenaam As String
 
    ' Eindwaarde dobbelstenen bepalen en zichtbaar maken
    Dobbelsteen1 = Int(Rnd(1) * 6) + 1
    Dobbelsteen2 = Int(Rnd(1) * 6) + 1
    GooiDeDobbelstenen = Dobbelsteen1 + Dobbelsteen2 / 10
    Filenaam = IniPath & "Dobbelsteen" & Trim(Str(Dobbelsteen1)) & ".bmp"
    With ActiveSheet.Shapes("Picture 29").Fill
        .UserPicture Filenaam
        .TextureTile = msoTrue
    End With
    Filenaam = IniPath & "Dobbelsteen" & Trim(Str(Dobbelsteen2)) & ".bmp"
    With ActiveSheet.Shapes("Picture 52").Fill
        .UserPicture Filenaam
        .TextureTile = msoTrue
    End With
End Function

 

[E v R]

Wat zou kunnen werken is de shape even verbergen (.visible = false) en na laden weer op true zetten

Hoewel ik in dit geval 12 shapes zou gebruiken (2 maal 6 over elkaar heen geplaatst)
en de twee shapes steeds zichtbaar maken die zichtbaar moeten zijn

 

[popipipo]

Moet je echt met de shapes werken?

Ik heb deze file ooit eens gevonden en bewaard.
Ik weet niet wie hem gemaakt heeft maar aan hem/haar alle eer.
Hij werkt 'gewoon' met een rondje in een cel wel of niet zien.

Eventueel kun je het in een ander tabblad plaatsen en via de 'camera' als een soort shape tonen.

 

[AHulpje]

Zo:

 

[AlexCEL]

Zo wellicht met icoontjes?

=KIEZEN(B8;"⚀";"⚁";"⚂";"⚃";"⚄";"⚅")

Geen shapes of VBA nodig, alleen een grote tekengrootte.

 

[Henk Pietersma]

Dank jullie allemaal voor de snelle, fijne reacties.
Ik heb alles geprobeerd en heb gekozen om met 12 shapes te werken.
Die vormen nu samen de 2 dobbelstenen en het effect is erg goed geworden.
Hierbij een plaatje van hoe het er allemaal uit is komen te zien.
Het gaat om MONOPOLY en de weergave is heel goed gelukt.