Si lors de la dernière Saint-Valentin, vous avez déjà offert à votre femme bien-aimée un manteau de fourrure de guépard, et l'année d'avant - l'iPhone 7, et que vous vous demandez à quoi d'autre penser, alors je peux vous proposer une option :
Cela prend 2 minutes pour le faire.
Ouvrez Excel, allez dans l'onglet Insertion – Formes (Insérer — Formes) et choisissez un coeur:
Nous le dessinons sur une feuille, saisissons un texte touchant à l'intérieur, formatons-le de manière appropriée :
Pour plus de naturel, ajoutez un effet 3D sur l'onglet Format - Effets de forme (Format — Effets de formes):
Et la touche finale - ajoutez une macro pour l'animation. Cliquez sur Alt + F11, dans la fenêtre de l'éditeur Visual Basic qui s'ouvre, insérez un nouveau module vide via le menu Insertion – Module et copiez-y le texte de cette macro :
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 (Maintenant + TimeSerial(0, 0, 0.1)) Next i End Sub Fermez Visual Basic Editor, cliquez sur Alt + F8 et exécutez notre macro. Voilà! Bien-aimés – en extase, toi – en bisous, les vacances ont été une réussite. Si votre proche ne l'apprécie pas, apprenez au moins les commandes VBA pour travailler avec la 3D 🙂