3D yn Excel

Os ydych chi eisoes wedi rhoi cot ffwr cheetah i'ch merch annwyl ar Ddydd San Ffolant diwethaf, a'r flwyddyn cyn diwethaf - iPhone 7, a'ch bod chi'n pendroni beth arall i feddwl amdano, yna gallaf gynnig opsiwn:

Mae'n cymryd 2 funud i wneud hyn.

Agorwch Excel, ewch i'r tab Mewnosod - Siapiau (Mewnosod — Siapiau) a dewis calon:

3D yn Excel

Rydyn ni'n ei dynnu ar ddalen, yn mewnbynnu testun teimladwy y tu mewn, yn ei fformatio'n briodol:

3D yn Excel

I gael mwy o naturioldeb, ychwanegwch effaith 3D ar y tab Fformat – Effeithiau Siâp (Fformat - Effeithiau Siapiau):

3D yn Excel

A'r cyffyrddiad olaf - ychwanegu macro ar gyfer animeiddio. Cliciwch Alt + F11, yn y ffenestr golygydd Visual Basic sy'n agor, mewnosodwch fodiwl gwag newydd drwy'r ddewislen Mewnosod – Modiwl a chopïwch destun y macro hwn yno:

Is-galon() Ar gyfer i = 1 I 3000 Gyda ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Diwedd Gyda Cais.Aros (Nawr + Cyfres Amser(0, 0, 0.1)) Nesaf i Diwedd Is  

Caewch y Golygydd Sylfaenol Gweledol, cliciwch Alt + F8 a rhedeg ein macro. Ystyr geiriau: Voila! Anwylyd – mewn ecstasi, chi – mewn cusanau, roedd y gwyliau yn llwyddiant. Os nad yw'ch cariad yn ei werthfawrogi, yna o leiaf dysgwch y gorchmynion VBA ar gyfer gweithio gyda 3D 🙂

 

Gadael ymateb