|
マクロで基本フローチャットの処理図形を検索したい |
- 01: 名前：ちば投稿日：2007/10/09(火) 11:30
- マクロで基本フローチャットの処理図形を検索したい。
Set vsoShapes = ActiveDocument.Pages.Item(i).Shapes
Shapesは処理、判断、書類なと全部含めています、
処理だけの検索分けることができますか？
- 02: 名前：yoda投稿日：2007/10/09(火) 16:07
- 以下のようなマクロで、一応できますが、絶対的ではありません。
シェイプの名前というものは、自由に変えることができるからです。
Sub test()
Dim shp As Visio.Shape
For Each shp In ActivePage.Shapes
Debug.Print shp.Name
Next
End Sub
- 03: 名前：ちば投稿日：2007/10/10(水) 13:47
- ありがとうございました。
- 04: 名前：ちば投稿日：2007/10/10(水) 13:53
'ShapeのCustom Propertiesを取得
componentName = Application.ActiveDocument.Pages.Item(i).Shapes(intCounter).CellsSRC(visSectionProp, 0, visCustPropsValue).FormulaU
componentName = Replace(componentName, Module1.DBL_QUOT, "")
- 05: 名前：ちば投稿日：2007/10/10(水) 13:54
- Application.Documents.OpenEx Me.TextBox1.Text, visOpenRW
cnt = Application.ActiveDocument.Pages.Count
For i = 1 To cnt
Set vsoShapes = ActiveDocument.Pages.Item(i).Shapes
intShapeCount = vsoShapes.Count
str_name = Application.ActiveDocument.Pages.Item(i).Name
'Open str_name + ".CSV" For Output As #FileNo
If intShapeCount > 0 Then
For intCounter = 1 To intShapeCount
'ShapeのCustom Propertiesを取得
componentName = Application.ActiveDocument.Pages.Item(i).Shapes(intCounter).CellsSRC(visSectionProp, 0, visCustPropsValue).FormulaU
componentName = Replace(componentName, Module1.DBL_QUOT, "")
If componentName <> "" Then
Stop
End If
- 06: 名前：ちば投稿日：2007/10/10(水) 13:54
- 上の部分です。
- 07: 名前：yoda投稿日：2007/10/10(水) 14:16
- ？？？
|
|