Adds a new image to the Images collection of a document.
*expression * Required. An expression that returns an Images collection.
Page Required Object. The new page to be added.
BeforePage Required Object. The page in front of which to add the new image. Use
Nothing to add the new image as the last page or to add the new image to an empty document.
The following example opens a multipage source document and creates a new empty destination document. After the empty destination document is created, the example does the following:
- Adds the first image from the source to the new empty document by passing
- Adds the third image from the source to the end of the new document by passing
Nothingagain as BeforePage.
- Adds the second image from the source between the first and last pages of the new document by passing the existing second page as BeforePage.
The result is a new document in which the first three pages from the source document appear in the same order.
Sub TestAdd() Dim miDocSrc As MODI.Document Dim miDocDest As MODI.Document Set miDocSrc = New MODI.Document Set miDocDest = New MODI.Document miDocSrc.Create "C:\document1.tif" miDocDest.Create With miDocDest.Images .Add miDocSrc.Images(0), Nothing .Add miDocSrc.Images(2), Nothing .Add miDocSrc.Images(1), miDocDest.Images(1) End With miDocDest.SaveAs "C:\document2.mdi", miFILE_FORMAT_MDI Set miDocDest = Nothing Set miDocSrc = Nothing End Sub
Applies to | Images Collection Object