How to copy and insert shapes with increase in series of text inside of shape ie 1,2,3 or A,B,C by offsetting 2 columns after each increase in series?

[Pramodpandit123]

I need shapes to be copied and increased just like in picture.I tried Using Addshapes but it is not the right way to do it i think.How can i just copy and insert shapes with increase in its series.I tried copy and pasting range but the shapes did not copy.Following is a code i did using Addshapes.Also can anyone tell how to exactly find the Left,top value from {AddShape(msoShapeOval, iLeft, iTop, iWidth, iheight)} or its just Hit and trial ?

Option Explicit

Private Sub Click()


    Dim i, iLeft, iTop, iWidth, iheight As Integer
    Dim c, j As Range
    Set j = Range("A4")
    Set c = Range("D7:D8")
    iLeft = c.Left + (c.Width / 4)
    iTop = c.Top
    iWidth = c.Width / 2
    iheight = c.Height
   
    For i = 1 To j
        
            Dim ovalShape As Shape
            Set ovalShape = Sheet1.Shapes.AddShape(msoShapeOval, iLeft, iTop, iWidth, iheight)
            
            With ovalShape
                ovalShape.ShapeStyle = msoLineStylePreset7
                ovalShape.TextFrame.Characters.Text = i   ' ADD TEXT TO THE SHAPES.
            End With

            iLeft = iLeft + 145
             
        DoEvents
    Next
End Sub

 

[jolivanes]

Re: "If you have posted the question at more places, please provide links to those as well."
Apparently it is not worth his time to do so.

How to copy and insert shapes with increase in series of text inside of shape ie 1,2,3 or A,B,C by offsetting 2 columns after each increase in series? - OzGrid Free Excel/VBA Help Forum

I tried Using Addshapes but it is not the right way to do it i think.How can i just copy and insert shapes with increase in its series.I tried copy and pasting range but the shapes did not copy.Following is a code i did using Addshapes.Also can anyone…

www.ozgrid.com