Visio VBA从选择中获得形状

作者: 银角
发布时间: 2024-02-17 10:38:15 (3月前)
转自：

3 条回复

0#
回复此人
晴天3 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我不知道Visio VBA，但试一试： </p> <P> 的<strong> UPDATE </强> </p> <pre> <code> Sub selectTest() Dim x As Integer Dim sel As Visio.Selection Dim shp As Visio.Shape Dim inner_shape As Visio.Shape Set sel = ActiveWindow.Selection Set shp = sel.PrimaryItem For x = 1 To shp.Shapes.Count Set inner_shape = shp.Shapes(x) '// Do something with inner shape Next End Sub </code> </pre> </DIV>

编辑
1#
回复此人
Jacob | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 使用 <a href="https://docs.microsoft.com/en-us/office/vba/api/visio.selection.iterationmode" rel="nofollow noreferrer"> <code> Selection.IterationMode </code> </A> 属性以包括选择中的子选定形状 </p> <pre> <code> Set sel = ActiveWindow.Selection sel.IterationMode = 0 Set shp = sel.PrimaryItem </code> </pre> </DIV>

编辑

登录后才能参与评论