- Katılım
- 28 Haziran 2007
- Mesajlar
- 206
- Excel Vers. ve Dili
- Excel 2003 İngilizce
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
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