|
|
Postada em 25/06/2008 10:09 hs
Você coloca 2 referencias
- Microsoft Office 11.0 Object Library
- Microsoft PowerPoint 11.0 Object Library
São só esses 2!
Flw
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
|
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2008 19:32 hs
certo , mas porque da erro no set |
|
|
|
|
|
Postada em 26/06/2008 08:40 hs
Qual set está dando erro?
Pq é exatamente o que eu coloquei... só adiciona as referencias e joga o código... não precisa de mas nada.... só toma cuidado na hora de indicar o caminho para ser gravado! Tem que ser assim:
C:(barra invertida) caminho (barra invertida) nome_do_arquivo (SEM A EXTENSÃO .PPT, SÓ O NOME)
Flw
Alberto
"Em tijolo em tijolo a casa sai!"
Autor: Eu mesmo.
|
|
TÓPICO EDITADO
|
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2008 09:17 hs
kORN, eu não sei porque o seu não está dando certo. Eu testei aqui e funcionou direitinho. Apenas digite o caminho correto do arquivo a ser gravado e pode retirar a linha que fecha o aplicativo, assim o PowerPoint fica aberto e você verá que funciona certinho. Até mais. |
|
|
|
Caroline
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/11/2008 16:05 hs
Então, mas como altero o gráfico? 
Na verdade, estou lidando com ASP, não VB, mas foi desse modelo que peguei e funcionou no ASP (com alguma diferença, por exemplo, coloquei 8 no lugar de ppLayoutTextAndChart).
A propósito, é mais fácil colocar um slide só com título, já que você deleta a parte do gráfico e a recria.
O código que usei: (não funciona, porque, apesar de não dar erro, não altera o gráfico)
Tit_Sub = 1
Tit_Graf = 8
Tit = 11
xyz = 1
Set PP = server.CreateObject("PowerPoint.Application")
PP.Visible = True
Set Apres = PP.Presentations.Add()
A = Apres.PageSetup.SlideHeight ' Altura do Slide
L = Apres.PageSetup.SlideWidth ' Largura do Slide
Set Slides = Apres.Slides.Add(xyz,Tit) : xyz = xyz + 1
Slides.Shapes(1).TextFrame.TextRange.Text = "Este é o Gráfico"
Slides.Shapes.AddOLEObject L/10, A/5, 4*L/5, 3*A/4, "MSGraph.Chart"
Set Grafico = Slides.Shapes(2).OLEFormat.Object
Grafico.ChartType = 76
'Tabela de dados do gráfico
Set Tabela = Grafico.Application.DataSheet
For uvw=2 To 10
Tabela.Cells(1,uvw).value = "Linha "&uvw-1
Next
For xyz=2 To 10
Tabela.Cells(xyz,1).value = "Coluna "&xyz-1
For uvw=2 To 10
Tabela.Cells(xyz,uvw).value = xyz-1&","&uvw-1
Next
Next
response.write "Tipo setado: "&Apres.Slides(1).Shapes(2).OLEFormat.Object.ChartType&"<br>"
Apres.SaveAs Pasta&Arquivo
Apres.Close
Set Grafico = PP.Presentations.Open(Pasta&Arquivo).Slides(1).Shapes(2).OLEFormat.Object
response.write "Tipo criado: "&Grafico.ChartType&"<br>"
response.write "Primeira célula: "&Grafico.Application.DataSheet.Cells(1,1)&"<br>"
PP.Quit
|
|
|
|
|
|
Postada em 14/11/2008 16:06 hs
Então, mas como altero o gráfico?
Na verdade, estou lidando com ASP, não VB, mas foi desse modelo que peguei e funcionou no ASP (com alguma diferença, por exemplo, coloquei 8 no lugar de ppLayoutTextAndChart).
A propósito, é mais fácil colocar um slide só com título, já que você deleta a parte do gráfico e a recria.
O código que usei: (não funciona, porque, apesar de não dar erro, não altera o gráfico)
Tit_Sub = 1
Tit_Graf = 8
Tit = 11
xyz = 1
Set PP = server.CreateObject("PowerPoint.Application")
PP.Visible = True
Set Apres = PP.Presentations.Add()
A = Apres.PageSetup.SlideHeight ' Altura do Slide
L = Apres.PageSetup.SlideWidth ' Largura do Slide
Set Slides = Apres.Slides.Add(xyz,Tit) : xyz = xyz + 1
Slides.Shapes(1).TextFrame.TextRange.Text = "Este é o Gráfico"
Slides.Shapes.AddOLEObject L/10, A/5, 4*L/5, 3*A/4, "MSGraph.Chart"
Set Grafico = Slides.Shapes(2).OLEFormat.Object
Grafico.ChartType = 76
'Tabela de dados do gráfico
Set Tabela = Grafico.Application.DataSheet
For uvw=2 To 10
Tabela.Cells(1,uvw).value = "Linha "&uvw-1
Next
For xyz=2 To 10
Tabela.Cells(xyz,1).value = "Coluna "&xyz-1
For uvw=2 To 10
Tabela.Cells(xyz,uvw).value = xyz-1&","&uvw-1
Next
Next
response.write "Tipo setado: "&Apres.Slides(1).Shapes(2).OLEFormat.Object.ChartType&"<br>"
Apres.SaveAs Pasta&Arquivo
Apres.Close
Set Grafico = PP.Presentations.Open(Pasta&Arquivo).Slides(1).Shapes(2).OLEFormat.Object
response.write "Tipo criado: "&Grafico.ChartType&"<br>"
response.write "Primeira célula: "&Grafico.Application.DataSheet.Cells(1,1)&"<br>"
PP.Quit
|
|
|
|
|
