チェックボックス（コントロールボックス？）について

Question

下記のようなマクロを各チェックボックスに割り当てる（チェックボックスにはそれぞれ番号を変えて登録）と、office2013ではうまく動作し、365ではうまく動作しないという事例が発生しています。何か具体的な対策は可能でしょうか。。。

With ActiveSheet

'チェック95がonになった時は

If .Shapes("チェック 95").DrawingObject.Value = xlOn Then

'チェック71～96はon or offにする

.Shapes("チェック 94").DrawingObject.Value = xlOff

.Shapes("チェック 94").DrawingObject.Enabled = False

.Shapes("チェック 88").DrawingObject.Value = xlOff

.Shapes("チェック 88").DrawingObject.Enabled = False

.Shapes("チェック 96").DrawingObject.Value = xlOff

.Shapes("チェック 96").DrawingObject.Enabled = False

.Shapes("チェック 89").DrawingObject.Value = xlOff

.Shapes("チェック 89").DrawingObject.Enabled = False

Else

'チェック95がoffになった時は以下はTrue or Falseになる

.Shapes("チェック 94").DrawingObject.Enabled = True

.Shapes("チェック 88").DrawingObject.Enabled = True

.Shapes("チェック 89").DrawingObject.Enabled = True

.Shapes("チェック 95").DrawingObject.Enabled = True

End If

End With

End Sub

** モデレーター注 **

この質問は [Office | Excel | Windows 10 | Office 365 for business] のカテゴリーに投稿されましたが、内容から判断し、こちらのカテゴリに移動いたしました。適切なカテゴリーに投稿すると、返信や回答が得られやすくなり、同じ質問を持つ他のユーザーの参考にもなります。

Answer 1

​将広飯野 さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

チェックボックスに割り当てたマクロが Excel 2016 でうまく動作しないのですね。

マクロが関連するような場合、一般向けのこのマイクロソフト コミュニティでは該当するカテゴリがないため、情報が集まりにくいかもしれません。

今回の内容であれば、開発者の方々が多く利用されている MSDN フォーラムの VBA のカテゴリに投稿してみると、確認すべき点などアドバイスが寄せられやすくなると思います。

◆MSDN フォーラム - Visual Basic for Application(VBA)

よければそちらを利用してみてくださいね。