PROSAGA码农传奇-visio-VISIO VBA获取组中所有形状的集合

<div class =“post-text”itemprop =“text”>
  
    你的问题从这一行开始：
  
   <pre>
 <code>
 shapes.Add (subshp) 'Add the subshp to the shape collection

</code>
 </pre>
  
    应该是哪个（注意删除括号）：
  
   <pre>
 <code>
 shapes.Add subshp 'Add the subshp to the shape collection

</code>
 </pre>
  
    这里发生的事情是
     <code>
 ()
 </code>
     意味着VBA评估
     <code>
 subshp
 </code>
     并返回默认方法返回的任何内容（例如名称或ID）。所以你没有添加
     <code>
 Shape
 </code>
     你的收藏品，但其他东西（例如
     <code>
 String
 </code>
     要么
     <code>
 Long
 </code>
    ）。
  
  
    这条线上的空间让我困惑：
  
   <pre>
 <code>
 Set col = getAllShapes (subshp) 'Get all the shapes from the group

</code>
 </pre>
  
    你的VBE应该写成：
  
   <pre>
 <code>
 Set col = getAllShapes(subshp) 'Get all the shapes from the group

</code>
 </pre>
  
    所以这告诉我其他事情正在发生。但是，在代码中的这一点
     <code>
 subshp
 </code>
     是一个
     <code>
 Shape
 </code>
     对象所以不应该造成任何问题。
  
  
    所以现在，当您使用以下代码时，VBA正在寻找一个
     <code>
 Shape
 </code>
     但是你的收藏包含其他东西。这导致代码行不匹配 - 因此您的错误。
  
   <pre>
 <code>
 For Each colShp In col 'Error here
 shapes.Add (colShp) 'Add all the shapes to the collection
 Next colShp

</code>
 </pre>
  
    你经常这样做吗？
  
  <UL>
    <LI>
       <code>
 shapes.Add (subshp) 'Add the subshp to the shape collection
 </code>
    </LI>
    <LI>
       <code>
 shapes.Add (colShp) 'Add all the shapes to the collection
 </code>
    </LI>
    <LI>
       <code>
 Else: shapes.Add (shp)
 </code>
    </LI>
  </UL>
  
    另外：不需要将两行连接到“：” - 这有助于混淆代码。
他们应该是：
  
  <UL>
    <LI>
       <code>
 shapes.Add subshp 'Add the subshp to the shape collection
 </code>
    </LI>
    <LI>
       <code>
 shapes.Add colShp 'Add all the shapes to the collection
 </code>
    </LI>
    <LI>
       <code>
 Else
 </code>
       同
       <code>
 shapes.Add shp
 </code>
       在下一行之前
       <code>
 End If
 </code>
    </LI>
  </UL>
  
    最后一点，一个好主意是不要将变量（例如“形状”）命名为与现有常用方法或属性相同 - 这可能会导致您使用哪个参数时出现一些混淆。
  
</DIV>