Vba 可重用循环函数

我在powerpoint vba中使用了多次for each和for循环，以循环所有幻灯片和形状。比如说,

对于i=Activepresentation.slidesi.count 接下来我

对于i=1到ActiveWindow.Selection.ShapeRange.Count 接下来我

将sld变暗为幻灯片 将shp变暗为形状 对于ActivePresentation.Slides中的每个sld 对于sld形状中的每个shp 下一个sld 下一个小水电

有没有办法为这些循环创建一个可重用的函数？因此，可以在需要时调用它

多谢各位

感谢和问候，

---

Balu。

如果我让你写-你尝试创建一个类obj。新的接线员。 但你的代码并不完全正确。这更像是： a类*obj=新a； 这意味着你获得了一些内存，并在那里建立了一个a级OBJ，其中包含了来自a级的一些参数； 在a类中，您需要一些构造函数，如： a{this->param=xx；this->param=xxx}

如果您声明class a*obj=new b，那么class b必须是class a的派生类型

class a {};
class b : public a {};

---

您正在为类的内容分配空间，并使用运算符new调用构造函数。由于类b是类a的一种类型，您可以从分配的类b请求指向类a的指针，因为类b是类a。

这是哪种语言？将此添加到标记或问题中。该代码不是有效的C++，它必须是类A*Obj=新B；甚至可以编译真实代码并创建一个新代码，如果没有缺少*，这可能是不神圣的。但在任何情况下，都是一个格式错误的问题。或者两者之间没有继承关系，但a有一个接受b*参数的向量。