Excelで三角くじを作ってみよう

'クジがクリックされた
Public Sub ExShapeClick()
    Dim kname As String
    Dim tshape As Shape
    Dim nno As Long
    
    'クリックされたクジを削除
    ExClickShapeDelete
    
    'クジの名前を取得
    kname = Application.Caller
    If kname = "clickkuji" Then
        Exit Sub
    End If
    
    'クジ番号
    nno = Mid(kname, 5)
        
    For Each tshape In Sheets("くじ引き").Shapes
        '名前をチェック
        If tshape.name = kname Then
            '中央に移動
            ExMoveCenter tshape
            If atarikuji(nno) = 1 Then
                ExMakeClickShape True
            Else
                ExMakeClickShape False
            End If
            'Exit For
        End If
    Next
    Set tshape = Nothing
End Sub

'クリックされたクジを削除
Public Sub ExClickShapeDelete()
    Dim tshape As Shape
    
    For Each tshape In Sheets("くじ引き").Shapes
        '名前をチェック
        If tshape.name = "clickkuji" Then
            tshape.Delete
            Exit For
        End If
    Next
    Set tshape = Nothing
End Sub