How can I paste a Visio drawing directly into PowerPoint without losing editing ability or formatting?

Long story short, I am writing a program that copies a series of Visio drawings and pastes each of them onto a PowerPoint slide for a client. This is very simple to do manually (Copy entire drawing in Visio, navigate to PowerPoint, paste special, -> Microsoft Visio Drawing Object) but I cannot find a way to automate this.

Windows Metafile and Enhanced Metafile are not acceptable because the moment you ungroup the image for purposes of editing, the pretty Visio formatting falls apart.

Normally I'd attempt to record a macro in PowerPoint and paste the image to see the code it produces, but PowerPoint no longer has the capability to record macros. I tried the same in Excel, but that line of code

ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False

does not appear to be adaptable to my case due to differences in the PowerPoint PasteSpecial function and the Excel PasteSpecial function.

Here is the relevant code snippet I am working with.

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=False, DisplayAsIcon:=False

I've tried every DataType that appears to be available to that paste function, but I presume there must be another way to do it.

Please let me know if there is any additional information that may be relevant. I'm fairly new to this kind of programming.
Thanks in advance!

asked Nov 19 '18 at 14:45

Christopher K

add a comment |

Windows Metafile and Enhanced Metafile are not acceptable because the moment you ungroup the image for purposes of editing, the pretty Visio formatting falls apart.

ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False

does not appear to be adaptable to my case due to differences in the PowerPoint PasteSpecial function and the Excel PasteSpecial function.

Here is the relevant code snippet I am working with.

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=False, DisplayAsIcon:=False

I've tried every DataType that appears to be available to that paste function, but I presume there must be another way to do it.

Please let me know if there is any additional information that may be relevant. I'm fairly new to this kind of programming.
Thanks in advance!

asked Nov 19 '18 at 14:45

Christopher K

add a comment |

Windows Metafile and Enhanced Metafile are not acceptable because the moment you ungroup the image for purposes of editing, the pretty Visio formatting falls apart.

ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False

does not appear to be adaptable to my case due to differences in the PowerPoint PasteSpecial function and the Excel PasteSpecial function.

Here is the relevant code snippet I am working with.

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=False, DisplayAsIcon:=False

I've tried every DataType that appears to be available to that paste function, but I presume there must be another way to do it.

Please let me know if there is any additional information that may be relevant. I'm fairly new to this kind of programming.
Thanks in advance!

asked Nov 19 '18 at 14:45

Christopher K

Windows Metafile and Enhanced Metafile are not acceptable because the moment you ungroup the image for purposes of editing, the pretty Visio formatting falls apart.

ActiveSheet.PasteSpecial Format:="Microsoft Visio Document", Link:=False, DisplayAsIcon:=False

does not appear to be adaptable to my case due to differences in the PowerPoint PasteSpecial function and the Excel PasteSpecial function.

Here is the relevant code snippet I am working with.

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject, Link:=False, DisplayAsIcon:=False

I've tried every DataType that appears to be available to that paste function, but I presume there must be another way to do it.

Please let me know if there is any additional information that may be relevant. I'm fairly new to this kind of programming.
Thanks in advance!

vba powerpoint powerpoint-vba visio visio-vba

asked Nov 19 '18 at 14:45

Christopher K

asked Nov 19 '18 at 14:45

Christopher K

asked Nov 19 '18 at 14:45

Christopher K

asked Nov 19 '18 at 14:45

Christopher K

asked Nov 19 '18 at 14:45

Christopher K

add a comment |

1 Answer
1

active

oldest

votes

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)

answered Nov 19 '18 at 19:39

Christopher K

1

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53377050%2fhow-can-i-paste-a-visio-drawing-directly-into-powerpoint-without-losing-editing%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)

answered Nov 19 '18 at 19:39

Christopher K

1

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

add a comment |

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)

answered Nov 19 '18 at 19:39

Christopher K

1

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

add a comment |

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)

answered Nov 19 '18 at 19:39

Christopher K

After some time, this appears to be my best answer:

' Select all and copy each Visio page

pg.CreateSelection(visSelTypeAll).Copy



' Paste special to each ppt slide, size and position properly

pptApp.ActiveWindow.View.GotoSlide (i)

pptApp.CommandBars.ExecuteMso "PasteSpecialDialog"

SendKeys "{ENTER}", True

This uses CommandBars.ExecuteMso to manually activate the paste special dialog and sends an Enter key press to select the first option.

Now I'm dealing with a "there isn't enough memory to perform the operation" error for my more complicated Visio drawings. But that's a different problem entirely :)

answered Nov 19 '18 at 19:39

Christopher K

answered Nov 19 '18 at 19:39

Christopher K

answered Nov 19 '18 at 19:39

Christopher K

answered Nov 19 '18 at 19:39

Christopher K

1

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

add a comment |

1

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

What's the purpose of having the drawings editable from within Powerpoint? Wouldn't it make the workflow easier and lighter if you just past pictures of the originals?
– y4cine
Nov 20 '18 at 7:47

The drawings are very much subject to change by the client. If they were pasted as images then the workflow for them to update the drawings in their preferred format would be more onerous
– Christopher K
Nov 20 '18 at 14:13

add a comment |

draft saved

draft discarded

Thanks for contributing an answer to Stack Overflow!

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

Some of your past answers have not been well-received, and you're in danger of being blocked from answering.

Please pay close attention to the following guidance:

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

Search This Blog

Ufyukyu