Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

416 - Visual basic y PowerPoint

Ejemplos para acceder a Microsoft PowerPoint desde Visual basic

Este es un simple proyeto , que consiste en un formulario que carga un recordset de ado y vuelca el contenido, es decir los registros, a un archivo de PowerPoint ( a una nueva diapositiva).

Pasos para el ejemplo :

Se debe agregar la referencia a Microsoft Power Point Object library
La referencia de ADO
Un control CommandButton
Dos TextBox ( Text1 para la ruta de la base de datos y el text2 para indicar la tabla)

El archivo ppt se genera en el app.Path del proyecto.

Nota : El ejemplo puede que se cuelgue , si se intentan exportar un número alto de registros

Código fuente en el formulario

Option Explicit ' función que exporta el recordset al archivo de ppt ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function PowerPoint(PathBd As String, _ Tabla As String, _ ArchivoPowerPoint As String) As Boolean On Error GoTo ErrorSub ' objeto recordset y objeto connection Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset ' objeto para acceder al PowerPoint Dim ObjPowerPoint As New PowerPoint.Application ' objeto para crear la presentación Dim Presentacion As PowerPoint.Presentation ' objeto diapositiva Dim slide As PowerPoint.slide Dim Valor As String ' valor del registro Dim maximo As Long ' para el progreso If cn Is Nothing Then Set cn = New ADODB.Connection ' si la conexión está abierta la cierra ElseIf cn.State = adStateOpen Then cn.Close End If ' abre la conexión ado y el recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBd rs.CursorLocation = adUseClient rs.Open "select * from " & Tabla, cn, adOpenForwardOnly, adLockReadOnly maximo = rs.RecordCount Screen.MousePointer = vbHourglass ' agregas una nueva presentación Set Presentacion = ObjPowerPoint.Presentations.Add ' variable para el campo Dim Campo As ADODB.Field Dim f1 As ADODB.Field Dim i As Integer Dim t As Integer ' posiciona le recorset al principio rs.MoveFirst ' recorre los datos For i = 1 To rs.RecordCount ' esto muestra el porcentaje del proceso en el caption del formulario Me.Caption = CStr(Round((i / maximo) * 100)) & " %" Set slide = Presentacion.Slides.Add(i, ppLayoutText) ' recorre los campos For Each Campo In rs.Fields Valor = Valor & Campo.Name & " : " & rs.Fields(Campo.Name) & vbCrLf slide.Shapes(2).TextFrame.TextRange.Text = Valor slide.Shapes(2).TextFrame.TextRange.Font.Size = 10 slide.Shapes(2).TextFrame.TextRange.Font.Color = vbBlue Next Valor = Valor & vbCrLf Valor = "" rs.MoveNext ' siguiente fila Next ' guarda el archivo .ppt Call Presentacion.SaveAs(ArchivoPowerPoint) 'cierra rs.Close cn.Close ' elimina las referencias Call DescargarObjetos(ObjPowerPoint, Presentacion, slide, rs, cn) PowerPoint = True Screen.MousePointer = vbNormal If Err.Number = 0 Then MsgBox "Exportación completa", vbInformation End If Me.Caption = vbNullString Exit Function ErrorSub: MsgBox Err.Description, vbCritical, Err.Number Call DescargarObjetos(ObjPowerPoint, Presentacion, slide, rs, cn) End Function ' sub que descarga las referencias creadas ( _ las del recordset, la conexión y la de powerpoint) Sub DescargarObjetos(ParamArray Elementos() As Variant) On Local Error Resume Next Dim Obj As Variant ' recorre el array For Each Obj In Elementos Set Obj = Nothing ' libera Next End Sub Private Sub Command1_Click() Call PowerPoint(Text1, Text2, App.Path & "\archivo.ppt") End Sub Private Sub Form_Load() Text1 = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" Text2 = "Proveedores" Command1.Caption = "Exportar a powerpoint" Me.Caption = "Recordset a PowerPoint" End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Vba Ejemplos

Buscar en Recursos vb