Scribd
Upload
45 views1 page

Excel Serial

Uploaded by

abdulrhman.sultan.fa
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
45 views1 page

Excel Serial

Uploaded by

abdulrhman.sultan.fa
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

Sub CreateNumberedCircles()

Dim ws As Worksheet
Dim i As Integer
Dim shape As Shape
Dim x As Double, y As Double

Set ws = ActiveSheet
x = 50
y = 50

For i = 1 To 20 ' ‫تعديل العدد حسب الحاجة‬


Set shape = ws.Shapes.AddShape(msoShapeOval, x, y, 30, 30)
shape.TextFrame.Characters.Text = i
shape.TextFrame.HorizontalAlignment = xlHAlignCenter
shape.TextFrame.VerticalAlignment = xlVAlignCenter
x = x + 40 ' ‫تعديل المسافة بين الدوائر‬
Next i
End Sub

You might also like