Convert To Freeform

excelledsoftware · #1 02-22-2012, 12:57 PM

There are such great answers on this forum. I have a macro (pasted below) that I use to take an autoshape and convert it to points. I know that sendkeys is not ideal to use but since PasteSpecial is not possible to record this is what I use.
The macro will cut the shape then paste special it as an enhanced metafile.
Then the macro will ungroup the metafile a prompt will come asking to convert it to a msoffice drawing object which the macro will say yes to, then the macro ungroups it again and then deletes the other 2 shapes from the conversion.
Any suggestions on how to accomplish the same thing without using sendkeys. The last 2 shapes deletion is not that important its just nice to not have to delete the fill and then the blank square each time.

Sub CTP()
SendKeys "^{x}", wait
SendKeys "%(es)", wait
SendKeys "{down 2}", wait
SendKeys "{enter}", wait
SendKeys "^+h", wait
SendKeys "{y}", wait
SendKeys "^+h", wait
SendKeys "+{tab 2}", wait
SendKeys "{del}", wait

SendKeys "+{tab}", wait
SendKeys "{del}", wait
SendKeys "+{tab}", wait
End Sub

JohnWilson · #2 02-25-2012, 01:44 AM

You can convert a selected shape to a frreform using the executemso method but I suspect this isn't really what you are trying to do so I have also added code to (I think) duplicate what your code does.
[CODE]Sub ConvertFF()
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Application.CommandBars.ExecuteMso ("ShapeConvertToFreeform")
End Sub[CODE]

Code:

Sub ungroupEMF()
Dim oshp As Shape
Dim oshpR As ShapeRange
Dim osld As Slide
On Error Resume Next
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Set osld = ActiveWindow.View.Slide
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.Copy
osld.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select
With ActiveWindow.Selection.ShapeRange
.Left = oshp.Left
.Top = oshp.Top
oshp.Delete
.Ungroup.Select
.Ungroup.Select
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert .ost to .pst	phoy	Outlook	1	12-03-2011 07:07 PM
How do you convert to .MOV?	pmr8888	PowerPoint	0	11-30-2011 04:32 PM
Convert PDF to PPT?	Hinmini	PowerPoint	1	10-28-2011 07:38 PM
How to convert PDF to jpg?	gonner	Outlook	1	10-28-2011 06:25 PM
convert	golden039	Word	0	08-16-2009 05:48 PM