takayukisの日記 このページをアンテナに追加 RSSフィード

2018.10.23(火)

[]図形のテキストを新しいワークブックのセルに出力

Sub オブジェクトのテキストを出力()
    Dim shapes
    Set shapes = ActiveSheet.shapes
        Dim b As Workbook
    Set b = Workbooks.Add
    Dim s As Worksheet
    Set s = b.Sheets(1)
    Dim row As Long
    row = 1
        Dim shp As Shape
    For Each shp In shapes
        If shp.TextFrame2.TextRange.text <> "" Then
            'Debug.Print shp.TextFrame2.TextRange.text
            s.Cells(row, 1).Value = Trim(shp.TextFrame2.TextRange.text)
            row = row + 1
        End If
    Next
End Sub 

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20181023/1540250281