アンケートフォームからチェックボックスとオプションボタンのテキスト文字を取り出してテキストファイルに出すためのコードを作成。
出力されるコードは、そのチェックボックス等を作成した順番に出力されるため、作り方によっては、必ずしもまとまっては出ない。
けども、コピペ等の手段で一つ一つ書き出していくよりは、だいぶマシになると思う。
あと、最初はDebug.Printでイミディエイトウィンドウに出していたのだが、200行を超えると上から順に消えていってしまうことに気がついたので（ちなみに今回対象としたチェックボックスなどのシェイプは250）、テキスト出力に変更。
[code]Sub チェックボックスとオプションボタンのラベル出力()
Dim s As Shape
Dim StrFN As String
Dim IntFlNo As Integer
StrFN = ActiveWorkbook.Path & "\data.txt"
IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo
For Each s In ActiveSheet.Shapes
‘ Debug.Print s.Name
If Left(s.Name, 6) = "Option" Then
‘Debug.Print s.TextFrame.Characters.Text
Write #IntFlNo, s.TextFrame.Characters.Text
End If
Next s
Debug.Print "—"
For Each s In ActiveSheet.Shapes
‘ Debug.Print s.Name
If Left(s.Name, 5) = "Check" Then
Write #IntFlNo, s.TextFrame.Characters.Text
End If
Next s
Close #IntFlNo
End Sub[/code]
