Excelのチェックボックス(xlCheckBox)のテキストを消す

　大変苦労してやっと見つけた〜。

  ' cは任意のCellとする。
  Dim oSheet As Excel.Worksheet
  Set chkbox = oSheet.Shapes.AddFormControl(xlCheckBox, c.Left, c.Top, c.Width, c.Height)
  With chkbox
    .OLEFormat.Object.Caption = ""
    .OLEFormat.object.Display3DShading = True
    .ControlFormat.Value = True
  End With

　VBのデバッガでオブジェクトを一つずつ見てやっと見つけました。ドキュメント探すより、デバッガで見る方が早かった…。これで3Dで表示されて、チェック状態で表示されます。明日はドロップダウンリストボックスだ！