This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Hi,
I am trying to use the following code to paste a copied shape into a note page, but it fails with the error "The specified data type is unavailable". It is alright if the clipboard contains texts. Any help is appreciated
Dim oSlide As Slide
Dim oShapes As Shapes
Set oSlide = ActivePresentation.Slides.Item(1).NotesPage.Item(1)
Set oShapes = oSlide.Shapes
oShapes.Paste
A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.
Answer accepted by question author
Does this work?
ActiveWindow.ViewType = ppViewNotesPage
With ActiveWindow.View
.GotoSlide (1)
.Paste
End With