Изменение размера шаров

[xsens]

Здравствуйте. Помогите пожалуйста с практическим заданием ,нужно чтобы у змейки при движении через один шарик, шарик увеличивался ,файл прикрепил. Заранее спасибо

[Aleksandr H.]

Непонятное описание "чтобы у змейки при движении через один шарик, шарик увеличивался". Графически можете нарисовать несколько кадров анимации?
Вариант:

.............
    '==== + ====
    currball = 0
    '==== - ====
    
    Do
    
        '==== + ====
        If currball > 10 Then
            currball = 1
        Else
            currball = currball + 1
        End If
        '==== - ====
        
        For i = 1 To 10
            Set Shar(i) = ActiveSheet.Shapes.AddShape(msoShapeOval, x(i), y(i), 20, 20)
        Next
        
        '==== + ====
            For j = 1 To 10
                If currball <> j Then
                    ActiveSheet.Shapes(Shar(j).Name).Height = 20
                    ActiveSheet.Shapes(Shar(j).Name).Width = 20
                Else
                    ActiveSheet.Shapes(Shar(j).Name).Height = 27
                    ActiveSheet.Shapes(Shar(j).Name).Width = 27
                End If
            Next
        '==== - ====
..........

кстати, а как выйти из игры кроме как Ctrl+break?

[xsens]

Ну вот у змейки стандартный размер шаров 20 и допустим она движется и первый шар становится размером 50 ,третий шар 50 ,5 шар 50 и т.д
Попробую ваш вариант.
А выйти ctrl+break или кнопкой стоп и все.

[IgorGO]

дорисовал змею глаза

у ВАС в каждом цикле ВСЕ шары удалялись и снова все прорисовывались по след.координатам

сделал так:
шары рисуются 1 раз перед основным циклом, а потом в цикле только получают новые координаты. эффект движения не поменялся (за исключением теперь наличия у змея глаз))