我想复制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