Replies

WOW! your userform is very powerful as it is. I’ll comment a an enduser (I still don’t know how hard or easy is to implement what I’m going to ask for…)

1. Tree view: this would look really cool! isn’t it too complicated? I would do the simpler things first
2. Multiple information column: very , very useful. I think of: Name, Web alt text, position of upper left corner , height widht
3a. Rename? YES!!!
3.b Resizeable userform? YES!!!
4 Live link-events: complicated…(?) the redraw button works fine for the time being!

When I started using your userform, I wished it would read the web alt text, because I frequently use that to “name” objects since it is read by the “select multiple objects” PP tool. Renaming with one click to open the dialog box, would do the job too. May be the “web alt text” can be turned on/off for display in the userform, as any of the other information…

One feature I saw in another add in was copying the X – Y coordinates from an object and pasting them to others, to reposition all objects. That could be really easy to implement too…

The coolest thing would be to enable drag and drop, to resort the list…

But again, your userform works very well now. I think that displaying “web alt text” (probably a very simple modification to the VB) would make my day. Using the help I got from the lounge, I have an add-in to import pictures as files and making “web alt text” = filenames. That has helped me a lot in my work. If I could read those filenames in from your userform…

One problem: if a selection is made on lets say slide 1, and I go to slide 2 and don’t select anything, and call the userform, it will yield an error and trigger the de###### dialog. I avoid that by making sure each time I change slides, to select something first. May be an error trap would be needed there.

I wish I could program like you!. Thank you

I found where the code is stored (I am a begginer ):

In the VB editor (Alt-F11) I went to the Forms frmMultiSelect
Selected the text field element
Right click “View Code” and there it is!

I found that your example must be open in order for the macro and button to work while working with other PPT presentations

If the ppt containing the dialog is not open, when I click the custom created button, it will call the macro, I get the Disable / Enable macros warning/prompt, but the dialog form flashes for less than a second and goes away.

How should the macro behave if I save it as an add-in (given that I create the autoopen autoclose routines?

I found where the code is stored (I am a begginer ):

In the VB editor (Alt-F11) I went to the Forms frmMultiSelect
Selected the text field element
Right click “View Code” and there it is!

I found that your example must be open in order for the macro and button to work while working with other PPT presentations

If the ppt containing the dialog is not open, when I click the custom created button, it will call the macro, I get the Disable / Enable macros warning/prompt, but the dialog form flashes for less than a second and goes away.

How should the macro behave if I save it as an add-in (given that I create the autoopen autoclose routines?

Your first try is excellent !!!

I need to study your code (I’m sure it is beyond what I can understand).

What makes it even better is that even though the dialog is open, I can select objects from the dialog and click the sorting buttons, and “redraw” and it updates the sorted list!!! No need to close the select tool. This is very powerful!!

1. I checked the code of your PPT with Alt-F11. I found the dialog form. But found very little visual basic. The VB in your post… Where is it?
2. Can I add the auto open and auto close directly to your code and turn it into an add-in?

THANK YOU VERY MUCH

Your first try is excellent !!!

I need to study your code (I’m sure it is beyond what I can understand).

What makes it even better is that even though the dialog is open, I can select objects from the dialog and click the sorting buttons, and “redraw” and it updates the sorted list!!! No need to close the select tool. This is very powerful!!

1. I checked the code of your PPT with Alt-F11. I found the dialog form. But found very little visual basic. The VB in your post… Where is it?
2. Can I add the auto open and auto close directly to your code and turn it into an add-in?

THANK YOU VERY MUCH

(Edited by Leif on 23-Jul-04 14:09. )

Question re-posted in the VB forum here – further answers there please!

I would like to enhance the “select multiple objects” dialog, to allow active display of selected objects, and add sorting buttons in that same box.

Questions:

1. Where can I find the code that will allow me to re-create (using an add-in and with macros/VB) the “select multiple objects” dialog
2. Is it possible to create the active link (changes in the selection box will immediately display in the active slide)?

Probably most of what I want to do, has already been developed by MS MVP’s. Where can I get standard code “pieces, to build my add-in (the VB help and library is like ancient Chinese to me!)

Thank you

(Edited by Leif on 23-Jul-04 14:09. )

Question re-posted in the VB forum here – further answers there please!

I would like to enhance the “select multiple objects” dialog, to allow active display of selected objects, and add sorting buttons in that same box.

Questions:

1. Where can I find the code that will allow me to re-create (using an add-in and with macros/VB) the “select multiple objects” dialog
2. Is it possible to create the active link (changes in the selection box will immediately display in the active slide)?

Probably most of what I want to do, has already been developed by MS MVP’s. Where can I get standard code “pieces, to build my add-in (the VB help and library is like ancient Chinese to me!)

Thank you

these are great links! thank you.

but still haven’t been able to find the VB code to produce a dialog similar to the “select multiple objects” tool

these are great links! thank you.

but still haven’t been able to find the VB code to produce a dialog similar to the “select multiple objects” tool

EXCELLENT!!!

Thank you very much!

EXCELLENT!!!

Thank you very much!

I edited it, and it ran to the end without error. . But now, the macro adds a new slide to the end of the presentation, with a title (“Named Shaped”) and an empty text box.

I guess that after …

ActiveWindow.View.GotoSlide _ Index:=ActivePresentation.Slides _ .Add(Index:=ActivePresentation.Slides.Count + 1, _ Layout:=ppLayoutText).SlideIndex

is it losing focus of the selected slide…for the next…

With ActiveWindow.Selection…..

Can you fix it?

(The new text box is bulleted and font size 32. Can you make font size 12 ?)

Thank you.

I edited it, and it ran to the end without error. . But now, the macro adds a new slide to the end of the presentation, with a title (“Named Shaped”) and an empty text box.

I guess that after …

ActiveWindow.View.GotoSlide _ Index:=ActivePresentation.Slides _ .Add(Index:=ActivePresentation.Slides.Count + 1, _ Layout:=ppLayoutText).SlideIndex

is it losing focus of the selected slide…for the next…

With ActiveWindow.Selection…..

Can you fix it?

(The new text box is bulleted and font size 32. Can you make font size 12 ?)

Thank you.

I am trying Sub listShapes()

but it stops at :

ActiveWindow.View.GotoSlide _
Index:=ActivePresentation.Slides _
.Add(Index:=10, _
Layout:=ppLayoutText).SlideIndex

Can’t figure out why. Made sure I made no copy/paste mistakes. That is OK.

Anything wrong with the syntax?

Sub nameShape() works fine!

I am trying Sub listShapes()

but it stops at :

ActiveWindow.View.GotoSlide _
Index:=ActivePresentation.Slides _
.Add(Index:=10, _
Layout:=ppLayoutText).SlideIndex

Can’t figure out why. Made sure I made no copy/paste mistakes. That is OK.

Anything wrong with the syntax?

Sub nameShape() works fine!