Şekillerin otomatik ölçülendirilmesi

[Araştırıcı]

Merhaba,

Aşağıdaki kodlara konu olan yıldız ve ya kare otamatik şekillerinin kaç adet varsa, tümünü kapsayacak şekilde otomatik olarak tekrar ölçülerini büyütüp küçültebilir miyiz?

Private Sub CommandButton1_Click()

ActiveSheet.Shapes("Oval 372").Visible = True

ActiveSheet.Shapes("Oval 372").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 7
Selection.ShapeRange.Fill.Solid

ActiveSheet.Shapes("Oval 373").Visible = True

ActiveSheet.Shapes("Oval 373").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 7
Selection.ShapeRange.Fill.Solid

ActiveSheet.Shapes("Oval 374 ").Visible = True

ActiveSheet.Shapes("Oval 374").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.ShapeRange.Fill.Solid
.
.
.
.
Saygılarımla