INSERIR FOTO NO POWER POINT VIA VB
Olá Pessoal, seguinte baixei um código da internet de como criar uma apresentação via vb no power point
[ô] Start PowerPoint.
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject([Ô]Powerpoint.Application[Ô])
[ô] Make it visible.
ppApp.Visible = True
[ô] Add a new presentation.
Dim ppPres As PowerPoint.Presentation
Set ppPres = ppApp.Presentations.Add(msoTrue)
[ô] Add a new slide.
Dim ppSlide1 As PowerPoint.Slide
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutText)
[ô] Add some text.
ppSlide1.Shapes(1).TextFrame.TextRange.Text = [Ô]Meu primeiro SLIDE[Ô]
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Color = vbRed
... continua
Agora preciso saber como inserir uma foto, tenho um arquivo, quero posicionar esta foto, alguem te ideia de como fazer isso
obrigado
[ô] Start PowerPoint.
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject([Ô]Powerpoint.Application[Ô])
[ô] Make it visible.
ppApp.Visible = True
[ô] Add a new presentation.
Dim ppPres As PowerPoint.Presentation
Set ppPres = ppApp.Presentations.Add(msoTrue)
[ô] Add a new slide.
Dim ppSlide1 As PowerPoint.Slide
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutText)
[ô] Add some text.
ppSlide1.Shapes(1).TextFrame.TextRange.Text = [Ô]Meu primeiro SLIDE[Ô]
ppSlide1.Shapes(1).TextFrame.TextRange.Font.Color = vbRed
... continua
Agora preciso saber como inserir uma foto, tenho um arquivo, quero posicionar esta foto, alguem te ideia de como fazer isso
obrigado
Olá Elton, orbigado pela ajuda, mas está aparecendo um erro:
[Ô]O valor especificado está fora dos limites[Ô]
O que pode ser esse erro?
Obrigado
[Ô]O valor especificado está fora dos limites[Ô]
O que pode ser esse erro?
Obrigado
ELTON, deu certo, esqueci de fazer as referencias, valew, obrigado..........
Olá pessoal estou ativando novamente este tópico porque agora encotrei um outro problema
Como as funções acima funciona referenciando o powerpoint no projeto, tive problemas em relação a versões, então mudei as linhas assim:
ao invés de colocar assim:
Set ppApp = New PowerPoint.Application
fiz assim:
Set ppApp = CreateObject([Ô]PowerPoint.Application[Ô])
mas da um erro aqui:
ppPres.Slides.Add 1, ppLayoutBlank
diz que o número de add do slide é inválido.
usando as referencias no projeto funciona normal, mas qdo tiro a referencia aparece o erro nesta linha, alguem tem alguma idéia de como resolver isso, versões do powerpoint?
Obrigado desde já
Como as funções acima funciona referenciando o powerpoint no projeto, tive problemas em relação a versões, então mudei as linhas assim:
ao invés de colocar assim:
Set ppApp = New PowerPoint.Application
fiz assim:
Set ppApp = CreateObject([Ô]PowerPoint.Application[Ô])
mas da um erro aqui:
ppPres.Slides.Add 1, ppLayoutBlank
diz que o número de add do slide é inválido.
usando as referencias no projeto funciona normal, mas qdo tiro a referencia aparece o erro nesta linha, alguem tem alguma idéia de como resolver isso, versões do powerpoint?
Obrigado desde já
Tópico encerrado , respostas não são mais permitidas