VBA Shapes.Count miscounting

[satkin2]

Hi,
I've got a VBA script set up which copies a range from Excel, and pastes it in to PowerPoint.
I then count which shape number on the slide it is, so that I can resize it and place it on the slide where I want it.

I get a problem when counting the shapes on the slide.

After I have pasted in to PowerPoint, I loop through each shape on the slide.

   Dim shp As PowerPoint.Shape
   Dim ShapeNum As Long
   For Each shp In pSlide.Shapes
    ShapeNum = ShapeNum + 1
    'MsgBox "Shape Counted"
   Next

As you'll see, I've got a MsgBox on each count. If this is commented out, my final ShapeNum = 3. However my pasted shape is shape 4 in this example.
If I uncomment the MsgBox, it counts 4 times and gives ShapeNum the correct value.

It's almost as if it's going too fast. However, I tried putting in a delay, and that didn't work. It only gets the correct value when I use the MsgBox line.

I'm sure this isn't the way to do it, so is anyone able to advise on how I can do this and get the correct result without a msgbox?

Many thanks

 

[jasonb75]

How are you checking the final ShapeNum with the message box commented out?

 

[Yongle]

Are you wanting to do anything inside the loop
- if so what is that

Otherwise if you simply want the count for the slides, a loop is not required
countOfShapes = pSlide.Shapes.Count

LATE EDIT
Just in case you trip over this one too ...
The shapes collection is a zero based array - ie it starts at zero
So if there are 4 shapes in the sheet, refer to them like this
pSlide.Shapes(0)
pSlide.Shapes(1)
pSlide.Shapes(2)
pSlide.Shapes(3)

or in a loop

For x = 0 to pSlide.Shapes.Count -1
  pSlide(x) ...
Next x

 

[satkin2]

How are you checking the final ShapeNum with the message box commented out?

My next action is to resize the shape, based on the ShapeNum.

With pSlide.Shapes(ShapeNum)
    .Left = CM_To_Points(posLeft)
    .Top = CM_To_Points(posTop)
    .Width = CM_To_Points(sizeWidth)
    .Height = CM_To_Points(sizeHeight)
   End With

With the MsgBox commented out, I get an error as it's looks for ShapeNum 3 and doesn't like it, so just by debugging I found the issue.

 

[Yongle]

My next action is to resize the shape, based on the ShapeNum.

With pSlide.Shapes(ShapeNum)
    .Left = CM_To_Points(posLeft)
    .Top = CM_To_Points(posTop)
    .Width = CM_To_Points(sizeWidth)
    .Height = CM_To_Points(sizeHeight)
   End With

With the MsgBox commented out, I get an error as it's looks for ShapeNum 3 and doesn't like it, so just by debugging I found the issue.

You will understand if you read below LATE EDIT on post#3

 

[satkin2]

You will understand if you read below LATE EDIT on post#3

Indeed I will. That's sorted it for me.

Many thanks.