[[20191216113200]]　『シート上のチェックボックスのリンク解除について』（kazu）　ページの最後に飛ぶ

『シート上のチェックボックスのリンク解除について　ＶＢＡ』（kazu）

VBAにて特定のシートを別エクセルにコピペし、シート上のチェックボックス(５０個ほど)のリンク解除をVBAにて実施しています。繰り返し構文ですのでFor　NEXT構文でスマートにしたいのですが、どうもうまくいきません。

        ActiveSheet.Shapes.Range(Array("Check Box 1")).Select
    With Selection
        .LinkedCell = ""
　　　　.Display3DShading = False
    End With

         ActiveSheet.Shapes.Range(Array("Check Box 2")).Select
    With Selection
        .LinkedCell = ""
        .Display3DShading = False

と50まで続けています。

For　i = 1 to 50

でチェックボックスの数字の部分をiに置き換えるだけでは動きませんでした。ご教授お願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 こんな感じですかね？
 For Each c In ActiveSheet.CheckBoxes
      c.LinkedCell = ""
      c.Display3DShading = False
 Next c
（ろっくん） 2019/12/16(月) 11:55

 ＞チェックボックスの数字の部分をiに置き換えるだけでは動きませんでした。ご教授お願い致します。

 Option Explicit

 Sub Macro1()
    Dim i As Long
    For i = 1 To 50
    With ActiveSheet.Shapes("Check Box " & i)
        .ControlFormat.LinkedCell = ""
        .OLEFormat.Object.Display3DShading = False
    End With
 End Sub

（渡辺ひかる） 2019/12/16(月) 11:56

お二人方
ありがとうございました。うまく作動しました。感謝いたします。
（kazu） 2019/12/16(月) 12:07

コメント返信：

[ 一覧(最新更新順) ]

[[20191216113200]] 『シート上のチェックボックスのリンク解除について』（kazu） ページの最後に飛ぶ

[[20191216113200]]　『シート上のチェックボックスのリンク解除について』（kazu）　ページの最後に飛ぶ