效果是点击按钮之后,显示一个心的形状。参考了Microsoft的Visual Basic for Application官方文档,通过Shapes对象来实现。
代码
Private Sub CommandButton1_Click()
Dim curveShape As Shape
Set curveShape = Application.ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddShape(msoShapeHeart, 50, 50, 150, 200)
End Sub