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
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
А как объединить текст с фигурой? у меня получается, что текст отдельно такой же плюшкой ложится(
раскрыть ветку (1)