,可以通过以下步骤实现:
Sub ChangeShapeColor()
ActiveSheet.Shapes.Range(Array("Shape1", "Shape2", "Shape3")).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub
至此,你已经成功将宏赋给同一范围内的多个形状。当你对这些形状进行操作时,宏将按照你编写的代码进行相应的处理。请注意,以上步骤仅适用于Excel的宏编程,不涉及特定的云计算品牌商。
领取专属 10元无门槛券
手把手带您无忧上云