ActiveLayer.Paste.addToSelection gives run-time error 91

Moiz 4 months ago

Hello.

I have this routine which pastes the object in active layer and aligns it to center of page:

Sub PasteAndAlignToPageCenter()

'paste and select
ActiveLayer.Paste.AddToSelection 'this line gives run-time error 91

'align to page center
ActiveSelectionRange.AlignAndDistribute cdrAlignDistributeHAlignCenter, cdrAlignDistributeVAlignCenter, cdrAlignShapesToCenterOfPage
End Sub

Please help.

Thanks and regards.

CorelCS 4 months ago

Try PastEx
Cancel
Up 0 Down

Reply

Cancel
shark_ 4 months ago

Dim s As Shape

Set s = ActiveLayer.Paste

If Not s Is Nothing Then s.AlignAndDistribute cdrAlignDistributeHAlignCenter, cdrAlignDistributeVAlignCenter, cdrAlignShapesToCenterOfPage
Cancel
Up 0 Down

Reply

Cancel
bhbp.bg2 4 months ago

Sub PasteAndAlignToPageCenter()

'paste and select
ActiveLayer.Paste
'ActiveLayer.Shapes.All.AddToSelection

'align to page center
ActiveSelectionRange.AlignToPageCenter cdrAlignLeft + cdrAlignRight + cdrAlignTop + cdrAlignBottom, cdrTextAlignBoundingBox

End Sub
Cancel
Up 0 Down

Reply

Cancel