Comparez les prix des domaines et des services informatiques des vendeurs du monde entier

Pivot Créer un diagramme en utilisant Access 2007 VBA

Eh bien, il n'y a absolument aucun bon article sur Internet qui expliquerait ou apporterait des exemples de code sur la manière de créer un graphique pivot par VBA. J'en ai besoin parce que j'ai besoin d'un diagramme pivot, Pour afficher les différents résultats en fonction de la sélection de l'utilisateur. Il y en a pour Excel, Mais la syntaxe d'accès est différente. Je sais que c'est une question peu convaincante, mais si quelqu'un a un exemple de la façon de créer un diagramme pivot à VBA, Je serais très reconnaissant de l'aide.
2022-12-16 ajouter un commentaire
Partager ceci

Aucun résultat connexe trouvé

    Invité:

    Florian

    Confirmation de:

    Bien, à propos de 3 Recherche de jour je pense que je l'ai trouvé. Pas que quelqu'un est vraiment inquiet à ce sujet est juste 6 Vues, ​​qui parle beaucoup de choses pour pleines de terribles VBA. De toute façon, MSDN caché sous "Office XP", Et pas sous accès, mais toujours.

    http://msdn.microsoft.com/en-u ... px%23
    #
    2022-12-16 0 0
    Partager ceci

    Georges

    Confirmation de:

    J'ai créé un formulaire PivotChart à Access 2007. Dans une autre forme, j'ai des contrôles de sélection des utilisateurs et un formulaire consolidé en tant que sous-formulaire. Ensuite, j'utilise ce code dans la forme principale. Le modèle d'objet est le même que OWC11 /Office Web Components 11/.


    Private Function DisplayChart//
    

    
 With mysubform.Form.ChartSpace
    
 .Clear
    
 .AllowFiltering = True
    
 .HasChartSpaceTitle = True
    
 .ChartSpaceTitle.Caption = "test"
    
 .DisplayFieldButtons = False
    
 .DisplayToolbar = False
    

    
 .ConnectionString = ...
    
 .CommandText = "SELECT rSeries, rCategory, rDate, rValue " & _
    
 "FROM myTable"
    

    
 .Charts/0/.Type = chChartTypePie
    

    
 .SetData chDimSeriesNames, chDataBound, "rSeries"
    
 .SetData chDimCategories, chDataBound, "rCategory"
    
 .SetData chDimValues, chDataBound, "rValue"
    

    
 .HasChartSpaceLegend = True
    

    
 End With
    

    
End Function


    Les constantes peuvent être obtenues à partir de OWC11

    C:\Program Files\Common Files\Microsoft Shared\Web Components\11\OWC11.DLL

    Ils ont besoin de vous en haut du module. À ce stade, je ne sais pas comment les extraire d'un organigramme consolidé. Faire un lien sur OWC11 et défini pour le sous-formulaire ChartSpace variable déclarée comme OWC11.ChartSpace. Après avoir écrit le code, changez-le au type 'Object' et supprimer le lien pour la reliure tardive /et vérifier/. Ainsi, vos liens ne seront pas déchargés sur une machine 64 bits lorsqu'elles sont déployées.


    Private Enum ChartConstants
    
 chDimSeriesNames = 0
    
 chDimCategories = 1
    
 chDimValues = 2
    
 chDataBound = 0
    
 chAxisPositionValue = -8
    
 chAxisPositionCategory = -7
    
 chChartTypePie = 18
    
End Enum


    N'oubliez pas que vous pouvez également fournir à l'utilisateur l'accès à la forme de propriétés. PivotChart, Listes de champs et zones de décharge. Ou ils peuvent cliquer avec le bouton droit sur le diagramme pour leur accéder.

    /Noter - C'est toujours une nouvelle découverte pour moi, alors je vais essayer de mettre à jour cette réponse si je trouve un gay./
    2022-12-16 0 0
    Partager ceci
    Pourquoi est-ce complexe? 0 réponses ont été bouchées

    Pour répondre aux questions, connectez-vous ou registre

    Copyright © 2023, All Rights Reserved