-
-
-
As a VB begginer, I am learning a lot here!
I am trying to plot in power point some shapes or polygons I have in a map. The polygons have XY rectangular coordinates (Gauss Kruger). That’s why the numbers are so big. They are in meters, and I am mapping features that are km in size. So I re-scaled and shifted all of the nodes to fit them in the drawing area(with excel, but formulas are very easy to include in a ppt macro).
I see that, ppt could have a limitation from the point of view of canvas size and point location accuracy, if I wanted to edit an object and export to a map. So I’ve modified my project to do the following:
What I want to do now is plot a number of shapes from an ASCII file. Select some and delete. Write to an ASCII file the remaining shapes. So my workflow would be something like this:
1. Read an ASCII file
2. Locate Upperleft most and Lowerright most data points to define extent of “map” and scaling parameters to make the polygons fit the drawing area, without distortion or XY apect ratio change
3. Create the shapes reading the point data in ASCII format. The last column in my ASCII table has an ID # for each polygon. Name the shapes with that ID.
4. In ppt drawing area , select shapes and delete the ones I don’t need.
4. Read the list of remaining shapes.
5. Write a new ASCII file, including only the data (and shapes) that remains in the drawing area. In order not to loose the accuracy of the original XY’s, I would read the original ASCII data, locate the polygons by name and ID#
6. Write to a new ASCII, re-numbering the shapes or polygons in the new ASCII file from 1 to n.Next goal: to create the shapes from several ASCII files and merge them into a new , single, ASCII.
Why not do this in excel, in a spreadsheet? I want to be able to select the shapes in the drawing area, the way you do commonly in ppt (or any other drawing application). (Suggestions about doing this in excel only? that would be great too!)
Piece of cake! With what you have taught me, I should be able to do this right away.
-
As a VB begginer, I am learning a lot here!
I am trying to plot in power point some shapes or polygons I have in a map. The polygons have XY rectangular coordinates (Gauss Kruger). That’s why the numbers are so big. They are in meters, and I am mapping features that are km in size. So I re-scaled and shifted all of the nodes to fit them in the drawing area(with excel, but formulas are very easy to include in a ppt macro).
I see that, ppt could have a limitation from the point of view of canvas size and point location accuracy, if I wanted to edit an object and export to a map. So I’ve modified my project to do the following:
What I want to do now is plot a number of shapes from an ASCII file. Select some and delete. Write to an ASCII file the remaining shapes. So my workflow would be something like this:
1. Read an ASCII file
2. Locate Upperleft most and Lowerright most data points to define extent of “map” and scaling parameters to make the polygons fit the drawing area, without distortion or XY apect ratio change
3. Create the shapes reading the point data in ASCII format. The last column in my ASCII table has an ID # for each polygon. Name the shapes with that ID.
4. In ppt drawing area , select shapes and delete the ones I don’t need.
4. Read the list of remaining shapes.
5. Write a new ASCII file, including only the data (and shapes) that remains in the drawing area. In order not to loose the accuracy of the original XY’s, I would read the original ASCII data, locate the polygons by name and ID#
6. Write to a new ASCII, re-numbering the shapes or polygons in the new ASCII file from 1 to n.Next goal: to create the shapes from several ASCII files and merge them into a new , single, ASCII.
Why not do this in excel, in a spreadsheet? I want to be able to select the shapes in the drawing area, the way you do commonly in ppt (or any other drawing application). (Suggestions about doing this in excel only? that would be great too!)
Piece of cake! With what you have taught me, I should be able to do this right away.
-
this is great help!
I’ll have to experiment with the code, and re-write my routines.
in PPT 2002, how do I get the XY coordinates of each vertice of the freeform, so I can export to a new ASCII in case I edit my freeforms? something like…
width selection.shape
width shape
for each vertice ………..?Thank you
-
this is great help!
I’ll have to experiment with the code, and re-write my routines.
in PPT 2002, how do I get the XY coordinates of each vertice of the freeform, so I can export to a new ASCII in case I edit my freeforms? something like…
width selection.shape
width shape
for each vertice ………..?Thank you
-
I’m another happy lounger who has benefited from this code!
(8/5/2004)
SammyB is the man !!!!
-
I’m another happy lounger who has benefited from this code!
(8/5/2004)
SammyB is the man !!!!
-
Works great !!
I added to my “drawing” toolbar as a button!!
Thank you very much!
-
Works great !!
I added to my “drawing” toolbar as a button!!
Thank you very much!
-
Sam:
Sorting would mean the position from front to back. The list you output in the userform is sorted according to that “layering”. I have the 4 “sorting” (bring to front, etc) toolbar control buttons in a customized bar , always displayed, and I can use them with your tool open, “Redraw” will refresh the sorted list.
I continued adding controls to your tool. I added a report/copy shape top-left X-Y coordinates, and a pasting to selected shapes option.For more extensive changes/additions, I would design a new tool. This one, as it is , has become my main “toolbox” for ceating/editing slides!
Check it out!
-
Sam:
Sorting would mean the position from front to back. The list you output in the userform is sorted according to that “layering”. I have the 4 “sorting” (bring to front, etc) toolbar control buttons in a customized bar , always displayed, and I can use them with your tool open, “Redraw” will refresh the sorted list.
I continued adding controls to your tool. I added a report/copy shape top-left X-Y coordinates, and a pasting to selected shapes option.For more extensive changes/additions, I would design a new tool. This one, as it is , has become my main “toolbox” for ceating/editing slides!
Check it out!
-
Replaced code, and …
… it is getting even better!!!Multiple selection is very important for sorting. With the userform as it is now, I can select multiple objects re-sort them, change properties (color, font size, etc). I can even use other macros. This is such a powerful tool because you can do all that, while keeping the tool open. The redraw button is not a problem.
Using excel sounds like a realy cool idea. If you implement the excel style dialog, there could be an error trap to tell the user that several items (rows) are selected (or none).
I modified the userform to include a “rename” button, and an “add alternative web text” button. I attached the modified file. Check it out.
-
Replaced code, and …
… it is getting even better!!!Multiple selection is very important for sorting. With the userform as it is now, I can select multiple objects re-sort them, change properties (color, font size, etc). I can even use other macros. This is such a powerful tool because you can do all that, while keeping the tool open. The redraw button is not a problem.
Using excel sounds like a realy cool idea. If you implement the excel style dialog, there could be an error trap to tell the user that several items (rows) are selected (or none).
I modified the userform to include a “rename” button, and an “add alternative web text” button. I attached the modified file. Check it out.
-
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
Author
