解決済み：VBAチェックボックスの問題

Question

選択したシートをブックから印刷するマクロを作成しようとしています。最初のワークシートには、すべて「CheckBoxX」という命名規則に従う一連のチェックボックスがあり、Xはそのチェックボックスの番号です。コードを実行するには、これらの各チェックボックスを実行し、チェックされているかどうかを確認し、チェックされている場合は対応するワークシートを選択します。しかし、「オブジェクトがこのプロパティまたはメソッドをサポートしていません」というエラーが表示されます。 コード：：if文で

Option Explicit 


Sub Button14_Click() 
    Dim count As Integer 
    Dim checkNumber As String 

    For count = 1 To ThisWorkbook.Worksheets.count 
     checkNumber = "CheckBox" & count 
     If Sheets("Print").Shapes(checkNumber).OLEFormat.Object.Value = True Then 
      Worksheets(count + 1).Select (False) 
     End If 
    Next count 

    ActiveWindow.SelectedSheets.PrintOut 

End Sub 

デバッグは常にフラグライン

は、ここに私のコードです。

私はまた私のif文としてこれを試してみました：これまで

If Sheets("Print").Shapes(checkNumber).OLEFormat.Object.Value = True Then 

：

If Sheets("Print").Shapes(checkNumber).OLEFormat.Object.Object.Value = True Then 

私がしなければならなかったすべては、この行を変更した：

If Sheets("Print").Shapes(checkNumber).ControlFormat.Value = 1 Then 

SOLUTION

Answer 1

"チェックボックス1"いうより「CheckBox1を」

Answer 2

あなたがあなたの代わりにOLEObjectsのリストのShapeオブジェクトのリストにアクセスしている、（あなたのコード内OLEObjectを意味する）のチェックボックスのActiveXタイプを使用していると仮定。

簡単なテストサブは次のとおりです。

Sub test() 
    Dim mycb As Variant 
    Set mycb = ActiveSheet.OLEObjects("CheckBox1") 
    Debug.Print mycb.Name 
    Debug.Print mycb.Object.Value 
End Sub