Understood. As I said I'm new to this and wasn't sure how much of the code you'd need and how much would just be distracting.
The whole code block is;
set illustratorLabel to "Adobe Illustrator"
set powerpointLabel to "Microsoft PowerPoint"
set buttonLabel to "Paste on Active Slide"
display dialog "Please ensure the object you want to copy is selected in Adobe Illustrator before continuing." with title dialogTitle buttons {"OK"} default button "OK"
set aiApp to application illustratorLabel
set pptApp to application powerpointLabel
set svgClipboard to ""
tell aiApp
activate
tell front document
set selectionCount to count selection
if selectionCount is 0 then
display alert "Please select an object in Adobe Illustrator before continuing." as critical
return
end if
set selectedPathItem to first item of selection
set name of selectedPathItem to "Selected Object" -- set a name for the object to be used in the SVG
set myDoc to it
set svgFile to export myDoc to file ((path to desktop as string) & "clipboard.svg") as SVG with options {sVGAutoKerning:false, sVGIncludeFileInfo:false, sVGIncludeUnusedStyles:true, sVGObjectIDPrefix:""}
set svgClipboard to read svgFile
close svgFile without saving
delete file "clipboard.svg"
end tell
end tell
tell pptApp
activate
set activePresentation to active presentation
if activePresentation is missing value then
display alert "Please open a presentation in PowerPoint before continuing." as critical
return
end if
set activeSlide to slide selection of slide view of active window of activePresentation
tell activeSlide
make new picture at end with properties {file name:svgClipboard}
end tell
display dialog "The selected object has been pasted onto the active slide in PowerPoint." with title dialogTitle buttons {"OK"} default button "OK"
end tell
Any guidance, or pointing me in the direction of the right resources to solve this is greatly appreciated.