Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

VBA Access - Exportando imagens diretamente para os Slides do Powerpoint

Inline image 1

Digamos que temos uma ou mais tabelas cujo o conteúdo seja o caminho (path) de várias de nossas imagens, fotos ou algum conteúdo gráfico. A partir de uma interface simples com botões na nossa aplicação MS Access, podemos criar slides automaticamente enviado nossas fotos, ilustrações e artes para uma apresentação PPT.

Diversos Dashboards contidos em Planilhas do MS Excel, que podem ser abertas, copiadas como imagem dentro do MS Access e automaticamente exportados para o Powerpoint...Usem a imaginação e divirtam-se!

Option Compare Database
Option Explicit

Sub ExToPpt()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim pptShape As PowerPoint.Shape  
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Open("C:\bernardes\ShowA&APresentation.ppt")
cn.Open CurrentProject.Connection
rs.Open Forms!MyTable.RecordSource, cn 
Do Until rs.EOF
Set pptShape = pptSlide.Shapes.AddPicture(rs.Fields("Picturepath").Value)
rs.Move
Next Loop  
rs.close
cn.close 
Set pptSlide = pptPres.Slides.Add 
End Sub

Reference:

Inspiration:

TagsVBA, Access, Powerpoint, export, image, slide, table, send, PPT, foto, fotos, ilustrações, imagens, photo, exportar
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias