Hi all,
I want to add a picture to a slide in ppt.
I copy a script from a website and look for MS website.I come out with
my solution of adding a picture but it doesn’t work. I wonder which
method is used to add a picture to a slide in powerpoint?
Thanks,
Li
require ‘win32ole’
in_file=‘C:\VBA\rpt.bmp’
begin
ppt = WIN32OLE.new(‘Powerpoint.Application’)
ppt.Visible = true
doc = ppt.Presentations.Add()
ppLayoutText = 2
slide1 = doc.Slides.Add(1, ppLayoutText)
slide.Shapes.AddPicture(
{
‘FileName’=> in_file,
‘Left’=>100,
‘Top’=>100,
‘Width’=>70,
‘Height’=>70
}
)
rescue
ensure
ppt.Quit()
end