MacでのExcelVBA

Question

エクセルでチェックボックスの全選択、クリアボタンを実装したいのですが

Sub AllCheck
    dim i as integer
    
    for i = 1 to (チェックボックスの数)
        if ActiveSheet.OLEObjects("CheckBox" & i).Object.value = false Then
           ActiveSheet.OLEObjects("CheckBox" & i).Object.value = true
        End if
    next i

end Sub 

これで実行したのですが
WorkSheetクラスのOLEObjectsプロパティを取得できません
というエラーが発生します。

原因はチェックボックスの名前がおかしいのかなと思い見てみましたが、
「チェック 」、「Check Box 」という２つの名称が出てきたのでその名前を指定しましたが同様のエラーが
発生しています。

Mac版のExcelでは使用することができないのでしょうか？
Excelのバージョンは2011です。

Comments

[GOTA77]

ActiveSheet.OLEObjects().Object.valueを使用したweb上にあるサンプルコードなどは実行してみたのでしょうか？

[tuntun]

実行しました。このURLです。https://qiita.com/Dace_K/items/d9a51c4cdb3a730becf9

[GOTA77]

実行した結果はどうでしたか？

[tuntun]

for文のコードを実行しましたが、同様のエラーが起きました

Answer 1

たまたま慣れないExcel VBAと格闘中でチェックボックスを使っています。
次のようなコードで、チェックボックス全部をチェックされた状態にできました。
Excel for Mac 2016です。

    Dim i As Integer
    For i = 9 To 13
        If ActiveSheet.CheckBoxes("Check Box " & i).Value = -4146 Then
           ActiveSheet.CheckBoxes("Check Box " & i).Value = 1
        End If
    Next i

見当違いや不適切なこと/方法だったらすみません。
とりあえず。

Answer 2

Mac環境は手元には無いので、違いについてはこちら（Mac版Excel(Office2011）のVBAを使う場合の注意点)などを確認されて下さい。

で、提示のコードについては、Windowsとの相違が無い前提で回答すると、チェックボックスの名前の指定に問題があると思います。

「チェック 」、「Check Box 」という２つの名称が出てきたので

ということであれば名前が違っていますね。
コードに合わせるなら、「Check Box 1」の方を全て「CheckBox1」のようにしてみて下さい。

コードの方を合わせるなら以下のように。

Sub AllCheck
    dim i as integer

    for i = 1 to (チェックボックスの数)
        if ActiveSheet.OLEObjects("Check Box " & i).Object.value = false Then
           ActiveSheet.OLEObjects("Check Box " & i).Object.value = true
        End if
    next i

end Sub 

Answer 3

コメントに書くと長いので回答に書きます。

MacでActiveSheet.OLEObjects().Object.valueを検証して
https://qiita.com/Dace_K/items/d9a51c4cdb3a730becf9

のfor文のコードを実行しましたが、同様のエラーが起きました。
とのことですが、nの値は適切でしょうか？

一応②のVBAでプロパティを確認するコードを試して見てください。

Mac版とwindows版の互換性はActiveX に依存する機能以外はあったと思います。

デバックツールでステップ イン実行や値のWatchをやってみてください。
ステップ イン実行でi=1の時に実行することができれば、
iの値は適切ではないのではないでしょうか？

windows版ですがデバッグの仕方のしかたのリンクを貼っておきます。

デバッグの仕方
http://www.tipsfound.com/vba/01010