'The ReadAllBytes method can be used to create a byte array from an image filepath.
Dim imgArray as Byte() = File.ReadAllBytes(@"C:\image.png")
'create an object array of values to be populated
Dim valuesArray as Object() = new Object() {imgArray}
'create a string array of column names.
'the field names must match the data marker column names in the template.
Dim colNames = New String() {"Logo(image(1,2,2))"}
Dim DataProps As DataBindingProperties = pptt.CreateDataBindingProperties()
'Bind the data to the template
pptt.BindData(valuesArray, colNamesArray, "Company",pptt.CreateDataBindingProperties())
pptt.Process()
'Pass the template to PowerPointApplication
Dim ppta As PowerPointApplication = new PowerPointApplication()
Dim pres As Presentation = ppta.Open(pptt)
'Get the first slide in the presentation
Dim slide1 As Slide = pres.Slides(0)
//'Get the first picture on the slide
Dim allPics As Pictures = slide1.Pictures
Dim pic As Picture = allPics(0)
//'Set the alignment to be in the center of the slide, both horizontally and veritcally
pic.Align(Alignment.Center)
pic.Align(Alignment.Middle)
|