Question

I am working with Delphi(2010), but I’m new with PowerPoint(2010)

I’ve found two codes for copying slides with “keep source formatting”:

Sub test1()
Dim orig_slide, new_slide As Slide
Dim slide_range As SlideRange

    Set orig_slide = ActivePresentation.Slides(2)
    orig_slide.Copy
    Set slide_range = ActivePresentation.Slides.Paste(6)
    Set new_slide = slide_range.Item(1)

    new_slide.Design = orig_slide.Design
    new_slide.ColorScheme = orig_slide.ColorScheme
End Sub

Sub test2()
    ActivePresentation.Slides(2).Select
    ActiveWindow.Selection.Copy
    ActiveWindow.View.PasteSpecial (DataType = ppPasteOLEObject)
End Sub

They both are giving desired results in PowerPoint but in Delphi i get exceptions :

test1, line

new_slide.Design = orig_slide.Design

exception class EOleSysError with message ‘Member not found’

test2, line

ActiveWindow.View.PasteSpecial (DataType = ppPasteOLEObject)

exception class EOleException with message ‘View.PasteSpecial : Invalid request. The specified data type is unavailable’

I am using Slide Sorter View, copying and pasting are working ok, I’m only trying to add “keep source formatting” command.

Thanks in advance

Answer 1

I think I’ve found a solution :

This code in Delphi (doesn’t work)

var OrigSlide, NewSlide : Variant;
NewSlide.Design := OrigSlide.Design;

on the right side, Delphi seems to accept only variant_variable, it doesn’t accept variant_variable.property

Left side seems to work in opposite way ?!?

When I replaced it with this code, it works

OrigSlide := OrigSlide.Design;
NewSlide.Design := OrigSlide;

But I can only guess why.