昨年のバレンタインデーに愛する女性にチーターの毛皮のコートを贈り、一昨年には 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 (Now + TimeSerial(0, 0, 0.1)) Next i End Sub Visual Basic Editor を閉じて、 Altキー+ F8 マクロを実行します。 出来上がり！ 愛する人よ、エクスタシーで、キスで、休日は成功した。 あなたの愛する人がそれを気に入らない場合は、少なくとも 3D を操作するための VBA コマンドを学んでください 🙂