Question

（1 * 8）+（2 * 8）+（3 * 8）+（4 * 8）+（5 * 8）写为（1 + 2 + 3 + 4 + 5）* 8 即可。

如何以类似的方式简化下面的代码？

Private Sub CommandButton1_Click()
Label1.BackColor = &H8000000F
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
Label5.BackColor = &H8000000F
End Sub

实际上我听说过使用With的解决方案，但到目前为止我从来没有看到它们在PowerPoint中应用过。

Answer 1

您无法使用With关键字来执行此类任务

但你可以这样做：

Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 1 To 5
        Me.Controls("Label" & i).BackColor = &H8000000F
    Next i
End Sub

Answer 2

为标签创建一个范围，并按范围调用它而不是标签。

Private Sub CommandButton1_Click（） rangeName =＆amp; H8000000F 结束子

有没有办法在PowerPoint中简化VBA中的代码？

2 个答案: