Excel 中的 3D

如果在上一個情人節,你已經給心愛的女人一件獵豹皮大衣,而前年——iPhone 7,你還在想什麼,那麼我可以提供一個選擇:

完成此操作需要 2 分鐘。

打開 Excel,轉到選項卡 插入 - 形狀 (插入 - 形狀) 並選擇一顆心:

Excel 中的 3D

我們把它畫在一張紙上,在裡面輸入一個感人的文字,適當地格式化它:

Excel 中的 3D

為了更加自然,請在選項卡上添加 3D 效果 格式 - 形狀效果 (格式 - 形狀效果):

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 命令🙂

 

發表評論