シート上のすべてのオブジェクトをリストする方法、キャプションと値

Question

このコードは別の投稿にあり、修正しようとしましたがバグがありました。目標は、特定のシート、キャプション、値、および色からすべてのチェックボックスとオプションボタンをリストすることです。 （.caption、.value、.backcolorは実行時エラー438を引き起こします。また、同じブックの一部であるワークシート上にリストしたいと思います。このコードとは別のファイルではありません。

Sub ListAllObjects() 
Dim ws As Worksheet 
Dim objFSO As Object 
Dim objFil As Object 
Dim Sh As Shape 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile("C:\temp\summary.csv") 

objFile.writeline "Sheet, Object Type, Object name, Object Caption, Object Value, Object Color" 

For Each ws In ActiveWorkbook.Sheets 'keeing this in case I want it later 

If ws.Name = "Hotel Check Sheet" Then 

For Each Sh In ws.Shapes 
    If InStr(Sh.Name, "checkbox") > 0 Or InStr(Sh.Name, "optionbutton") > 0 Then 
    objFile.writeline ws.Name & "," & TypeName(Sh) & "," & Sh.Name & "," & Sh.Caption & "," & Sh.Value & "," & Sh.Color 
    End If 
Next 

End If 
Next 

objFile.Close 

End Sub 

Answer 1

あなたは、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」取得の理由は、エラーがShapeがCaption、Value、またはColor性質を持っていないため、単純である。これは、基本的には制御用コンテナだけですあなたは.OLEFormat.Objectにあります：

With Sh.OLEFormat.Object 
    objFile.WriteLine ws.Name & "," & _ 
         TypeName(Sh.OLEFormat.Object) & "," & _ 
         .Name & "," & _ 
         .Caption & "," & _ 
         .Value & "," & _ 
         .Interior.Color 
End With 

OptionButtonまたはCheckBoxのどちらにも.Colorプロパティがありません。 .Interior.Colorを確認する必要があります。