Hi everybody,
I have added some textboxes in PP with special sequence of numbering and I
have added a tag to them "SLDHNUM" now I want to use the following code to
delete them but this code doesn't work any thoughts?

For lx = 1 To ActivePresentation.Slides.Count
For ly = 1 To ActivePresentation.Slides(lx).Shapes.Count
If ActivePresentation.Slides(lx).Shapes(ly).Tags.Count > 0 Then
If ActivePresentation.Slides(lx).Shapes(ly).Tags.Name(1) = "SLDHNUM"
Then
ActivePresentation.Slides(lx).Shapes(ly).Delete
Exit For
End If
End If
Next
Next

by the way I used "for each" version of the loops but still didnt work.
--
Best regards,
Edward

Okay I guess i know what was the reason. I'm using this code in combination
with PP's printdialogbox and I missed the point that PP dialg boxes are
modeless and they don't stop the execution of the code untill users responses
to them. Now I guess my question is

lets say we have a code liek this
sub test()

some code here

CommandBars.FindControl(Id:=4).Execute

"some other code" here
end sub
is there a way to stop execution of "some other code" section until user
responds to the print dialog box ?
--
Best regards,
Edward


"Edward" wrote:

> Hi everybody,
> I have added some textboxes in PP with special sequence of numbering and I
> have added a tag to them "SLDHNUM" now I want to use the following code to
> delete them but this code doesn't work any thoughts?
>
> For lx = 1 To ActivePresentation.Slides.Count
> For ly = 1 To ActivePresentation.Slides(lx).Shapes.Count
> If ActivePresentation.Slides(lx).Shapes(ly).Tags.Count > 0 Then
> If ActivePresentation.Slides(lx).Shapes(ly).Tags.Name(1) = "SLDHNUM"
> Then
> ActivePresentation.Slides(lx).Shapes(ly).Delete
> Exit For
> End If
> End If
> Next
> Next
>
> by the way I used "for each" version of the loops but still didnt work.
> --
> Best regards,
> Edward