我想在visio中复制形状的内容

Question

希望你能提供帮助。我有一个visio文件将有很多形状（100s）我想复制形状（单词）的内容并将其粘贴到电子表格中。我无法弄清楚这是否可行。感谢任何帮助。

Answer 1

1. 你的意思是形状中的文字？
2. 这些形状是组还是单个形状？

Answer 2

该代码在页面中迭代单个形状并填充工作簿行     

Sub vv()
    Dim sh As Shape
    Dim ea As Object
    ' create new excel session
    Set ea = CreateObject("Excel.Application")
    ' make new excel session visible
    ea.Visible = True
    Dim ew As Object
    ' create new workbook
    Set ew = ea.workbooks.Add
    Dim r As Integer
    r = 0
    ' iterate all shapes in active page
    For Each sh In ActivePage.Shapes
    ' if shape have some text add content to workbook
    If Len(sh.Text) > 0 Then
    r = r + 1
    ew.sheets(1).Cells(r, 1) = sh.Text
    End If
    Next
    End Sub

Answer 3

使用报告导出形状文本。 http://www.hamishking.com/2010/05/27/using-visio-shape-reports-to-export-detail-from-your-diagrams/

Answer 4

感谢您的回复。我运行了一个报告来导出形状的文本，正如有人建议的那样。 TY