3D i Excel

Hvis du allerede på den siste Valentinsdagen ga din elskede kvinne en gepardpels, og året før – iPhone 7, og du lurer på hva annet du bør tenke på, så kan jeg tilby et alternativ:

Det tar 2 minutter å gjøre dette.

Åpne Excel, gå til fanen Sett inn – former (Sett inn – former) og velg et hjerte:

3D i Excel

Vi tegner det på et ark, skriver inn en rørende tekst inni, formaterer den riktig:

3D i Excel

For større naturlighet, legg til en 3D-effekt på fanen Format – Formeffekter (Format – Shapes Effects):

3D i Excel

Og siste hånd – legg til en makro for animasjon. Klikk Alt + F11, i Visual Basic-redigeringsvinduet som åpnes, sett inn en ny tom modul gjennom menyen Sett inn – modul og kopier teksten til denne makroen dit:

Sub Heart() For i = 1 Til 3000 Med ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Nå) + TimeSerial(0, 0, 0.1)) Neste i End Sub  

Lukk Visual Basic Editor, klikk Alt + F8 og kjøre makroen vår. Voila! Kjære – i ekstase, du – i kyss var ferien en suksess. Hvis din kjære ikke setter pris på det, så lær i det minste VBA-kommandoene for å jobbe med 3D 🙂

 

Legg igjen en kommentar