PowerPoint Automation à partir de MS Access...requêtes graphique?

Vous n'avez pas besoin d'utiliser Excel à tous ! L'utilisation de MS Access Graphiques dans un rapport et un code VBA pour les mettre en Powerpoint directement. Il y a déjà un exemple ici

Une "chasse aux sorcières" est si vous générez des graphiques dans un groupe c'est à dire vous concevoir un rapport avec un graphique qui est à l'intérieur d'un groupe - so lorsque vous exécutez le rapport, vous obtiendrez de nombreux graphiques créés.

Il est un peu difficile à obtenir de chacun de ces graphiques et de les déposer dans Powerpoint, mais voici un code qui va prendre soin d'elle. Cela fonctionne dans Access 2003

'Loop through all the controls in this report and pickout all the graphs
For Each c In pReport.Controls

    'Graphs initially appear to be in an Object Frame
    If TypeOf c Is ObjectFrame Then

        'Check the Class of the object to make sure its a Chart
        If Left$(c.Class, 13) = "MSGraph.Chart" Then

            'Check if this graph must be cloned (required if the graph is in a group in the MS Access report)
            If Not IsGraphToBeCloned(pReport.Name, c.ControlName) Then

                InsertGraphToPptSlide c, "", pReport.Name
            Else
                InsertGraphGroupToPpt pReport.Name, c
            End If
        End If
    End If
Next

Cela permettra de trouver tous les graphiques dans le rapport, si le graphe est dans un groupe, puis nous appelons la InsertGraphGroupToPPt fonction.

L'astuce ici est que nous savons que nous avons la même base graphique plusieurs fois, mais rempli avec des données différentes. Donc dans Powerpoint ce que vous devez faire est de coller la base graphique dans powerpoint diapositives n fois - où n est le nombre de groupes et ensuite mettre à jour les graphiques des propriétés de la requête

par exemple

Function UpdateGraphInPowerpoint(sql As String, OrigGraph As ObjectFrame, Groups As dao.Recordset, GroupName As String, ReportName As String) As Boolean


    //Copyright Innova Associates Ltd, 2009
    On Error GoTo ERR_CGFF
    On Error GoTo ERR_CGFF

    Dim oDataSheet As DataSheet
    Dim Graph As Graph.Chart
    Dim lRowCnt, lColCnt, lValue As Long, CGFF_FldCnt As Integer
    Dim CGFF_Rs As dao.Recordset
    Dim CGFF_field As dao.Field
    Dim CGFF_PwrPntloaded As Boolean
    Dim lheight, lwidth, LLeft, lTop As Single
    Dim slidenum As Integer
    Dim GraphSQL As String
    Dim lGrpPos As Long

    'Loop thru groups
    Do While Not Groups.EOF

        'We want content to be added to the end of the presentation - so find out how many slides we already have
        slidenum = gPwrPntPres.Slides.Count
        OrigGraph.Action = acOLECopy            'Copy to clipboard
        slidenum = slidenum + 1                 'Increment the Ppt slide number
        gPwrPntPres.Slides.Add slidenum, ppLayoutTitleOnly   'Add a Ppt slide

        'On Error Resume Next    'Ignore errors related to Graph caption
        gPwrPntPres.Slides(slidenum).Shapes(1).TextFrame.TextRange.Text = ReportName & vbCrLf & "(" & Groups.Fields(0).Value & ")" 'Set slide title to match graph title
        gPwrPntPres.Slides(slidenum).Shapes(1).TextFrame.TextRange.Font.Size = 16

        gPwrPntPres.Slides(slidenum).Shapes.Paste  'Paste graph into ppt from clipboard

        Set Graph = gPwrPntPres.Slides(slidenum).Shapes(2).OLEFormat.Object

        Set oDataSheet = Graph.Application.DataSheet    ' Set the reference to the datasheet collection.
        oDataSheet.Cells.Clear                          ' Clear the datasheet.

        GraphSQL = Replace(sql, "<%WHERE%>", " where " & GroupName & " = '" & Groups.Fields(0).Value & "'")
        Set CGFF_Rs = ExecQuery(GraphSQL)


        CGFF_FldCnt = 1
        ' Loop through the fields collection and get the field names.
        For Each CGFF_field In CGFF_Rs.Fields
            oDataSheet.Cells(1, CGFF_FldCnt).Value = CGFF_Rs.Fields(CGFF_FldCnt - 1).Name
           CGFF_FldCnt = CGFF_FldCnt + 1
        Next CGFF_field

        lRowCnt = 2
        ' Loop through the recordset.
        Do While Not CGFF_Rs.EOF

            CGFF_FldCnt = 1
            ' Put the values for the fields in the datasheet.
            For Each CGFF_field In CGFF_Rs.Fields
               oDataSheet.Cells(lRowCnt, CGFF_FldCnt).Value = IIf(IsNull(CGFF_field.Value), "", CGFF_field.Value)
               CGFF_FldCnt = CGFF_FldCnt + 1

            Next CGFF_field

            lRowCnt = lRowCnt + 1
            CGFF_Rs.MoveNext
        Loop

        ' Update the graph.
        Graph.Application.Update

        DoEvents

        CGFF_Rs.Close
        DoEvents
        Groups.MoveNext
    Loop

    UpdateGraphInPowerpoint = True
    Exit Function


End Function

OriginalL'auteur Chris

Ce que vous me demandez, c'est beaucoup de travail:

Via VBA, vous auriez à l'ouverture d'Excel (Excel Application de manipulation de l'Accès) , de mettre à jour vos tableaux de bord (Plage de la manipulation, de la mise à Jour des Données) si vous avez les droits, alors je vous suggérerais d'avoir de vos graphiques croisés dynamiques connectés à des données d'Accès, et pas collé dans le cahier de travail, néanmoins j'ai été dans nombre de situations où ce n'était pas possible. Ensuite, vous devez ouvrir votre présentation PowerPoint et de les copier à partir d'Excel, de PowerPoint. J'ai fait toutes ces choses et savoir combien de travail il peut enregistrer en créant une macro (via VBA) pour ce faire. C'est beaucoup de code.

OriginalL'auteur Chris Hayes