From: Li Chen <chen_li3@...>
Date: 2009-10-19T01:17:41+09:00
Subject: How to add a picuture to a slide in powerpoint

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
-- 
Posted via http://www.ruby-forum.com/.