Excelのシート上に設置された全てのトグルスイッチを「False」にしたい。 For each 〜

Excelのシート上に設置された全てのトグルスイッチを「False」にしたい。
For each 〜
でオブジェクトタイプがToggleButtonであるか判断し、
Value = False
にすればいいと思うのですが、うまく出来図に悩んでいます。

おわかりになる方、教えてください。

No.4 ベストアンサー 回答者： bonaron 回答日時： 2019/03/31 01:05

> オブジェクトタイプがToggleButtonであるか判断し、

progID で判別できます。

Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
　If obj.progID = "Forms.ToggleButton.1" Then
　　obj.Object.Value = False
　End If
Next

この回答へのお礼

ありがとうございます。
お教えいただいたコードで動作確認できました。
オブジェクト名にとらわれずに動作しますね。
progIDは初めて聞きました。
素人目ですが、こちらのコードが最適解なのかな、と感じました。

お礼日時：2019/03/31 15:03

No.3 回答者： taku-9023.ham 回答日時： 2019/03/30 23:54

このようなコードでできました！

解説としては，名前をLeft関数で抜き出しただけです。
でも，質問者さんの状況なら，十分動くはずです。
どうでしょうか？


Sub ToggleSetFalse()
Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If Left(obj.Name, 12) = "ToggleButton" Then
obj.Object.Value = False
End If
Next
End Sub

この回答へのお礼

ありがとうございます。
お教えいただいたコードで動作確認できました。
オブジェクト名が「ToggleButton」からはじまっているという条件付きですね。

お礼日時：2019/03/31 15:00

No.2 回答者： WindFaller 回答日時： 2019/03/30 22:33

ループするためには、"OLEObjects " この単語を思いつけばできます。

ただ、今、以下のコードでは、TypeName でOLEobject にしていますが、ToggleButton を選別するようにはできていません。やはり、Name やCaption で、Like 演算子で、Like "Toggle* " などとしたほうが確実でしょう。

Sub ToggleSwiching()
　Dim o As Object
　For Each o In ActiveSheet.OLEObjects
　　If TypeName(oj) = "OLEObject" Then
　　　o.Object.Value = False
　　End If
　Next
End Sub

この回答へのお礼

ありがとうございます。
おっしゃる通りで、OLEObjectsが出てきてませんでした。
お教えいただいたコードで動作確認できました。

4行目「oj」→「o」ですね。

お礼日時：2019/03/31 14:54

No.1 回答者： taku-9023.ham 回答日時： 2019/03/30 22:24

質問：

ボタンの種類はActiveXコントロールですか？
また，その場合，ボタンの名前はToggleButton1などになっているでしょうか？

その場合なら，結構簡単にできそうですよ。

この回答へのお礼

ありがとうございます、
ボタンの種類はActiveXコントロール
ボタンの名前はToggleButton1からの連番になっています。

検索して、名前の連番部分だけ変え、直接名前で指定して処理するような方法は見つけたのですが、
名前を変えることになるため、For each ～で処理する方法を探しておりました。

お礼日時：2019/03/30 22:37