如果在上一个情人节，你已经给心爱的女人一件猎豹皮大衣，而前年——iPhone 7，你还在想什么，那么我可以提供一个选择：
完成此操作需要 2 分钟。
打开 Excel，转到选项卡 插入 - 形状 （插入 - 形状） 并选择一颗心：
我们把它画在一张纸上，在里面输入一个感人的文字，适当地格式化它：
为了更加自然，请在选项卡上添加 3D 效果 格式 - 形状效果 （格式 - 形状效果）:
最后一步——为动画添加宏。 点击 Alt + F11键，在打开的Visual Basic编辑器窗口中，通过菜单插入一个新的空模块 插入 - 模块 并在此处复制此宏的文本：
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait（现在+ TimeSerial(0, 0, 0.1)) Next i End Sub 关闭 Visual Basic 编辑器，单击 Alt + F8键 并运行我们的宏。 瞧！ 亲爱的——在狂喜中，你——在亲吻中，这个假期是成功的。 如果您所爱的人不喜欢它，那么至少要学习使用 3D 的 VBA 命令🙂