Hi, great webiste, just hoping this is possible, I have code for two tools which work separately to PPT's Format Painter (code below):

TOOL A:
Macro 1. Copies a shape's properties (size, colour, font, etc.) to a clipboard that's independent of the Painter or Copy tools - and stores it in memory so you can carry on working, and use later (unless you exit PPT).
Macro 2. Converts a selected object to match the stored properties from 1.

i.e:

Tools A - 2 macros - copy and convert (as detailed below)
Tools B - 2 macros - copy and convert (independent of Tool A)

Is this possible? Thank you.

Macro 1 - TO COPY AND STORE PROPERTIES

Public sngW As Single
Public sngH As Single
Public lngRot As Long
Public lngType As Long

Sub CopyProperties()
Dim oshp As Shape
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.PickUp
sngW = oshp.Width
sngH = oshp.Height
lngRot = oshp.Rotation
lngType = oshp.AutoShapeType
Exit Sub
Macro 2 - TO CONVERT AN OBJECT TO STORED PROPERTIES

 
Sub ConvertProperties()
Dim oshp As Shape
For Each oshp In ActiveWindow.Selection.ShapeRange
oshp.AutoShapeType = lngType
oshp.Apply
oshp.LockAspectRatio = False
oshp.Width = sngW
oshp.Height = sngH
oshp.Rotation = lngRot
Next oshp
Exit Sub