Discussion :

[arundel]

Bonjour à tous,

Je veux charger automatiquement depuis Access un Organigramme hiérarchique de Powerpoint. Les smartarts de la catégorie Hiérarchie conviennent parfaitement à ce que je veux faire.

Quand on clique dans le masque, une fenêtre s'ouvre à gauche avec le titre "Tapez votre texte ici", et on peut saisir du texte avec indentation.

Comme Powerpoint 2010 ne propose pas d'enregistreur de macro et que je n'ai rien trouvé dans mes explorations du web je m'adresse à vous pour la question suivante : comment écrire dans cette fenêtre en VBA et non manuellement ou par copier/coller ?

Par avance merci de votre aide.

[mromain]

Bonsoir arundel, le forum,

Voici un exemple qui permet de manipuler ce SmartArt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim orga As Shape
    Set orga = ActivePresentation.Slides(1).Shapes.AddSmartArt(Application.SmartArtLayouts(92))
 
    With orga.SmartArt
        'modifier le texte du premier noeud
        .Nodes(1).TextFrame2.TextRange.Text = "Premier noeud"
 
        'ajouter un noeud
        With .Nodes(1).Nodes(1).Nodes(2).AddNode(msoSmartArtNodeBelow)
            .TextFrame2.TextRange.Text = "Noeud ajouté"
        End With
    End With
End Sub

Tu peux consulter l'aide sur l'objet SmartArt qui est composé d'une collection SmartArtNodes (SmartArt.Nodes) contenant de l'ensemble des nœuds (SmartArtNode) de premier niveau. Chacun nœud possède sa collection de nœuds fils.

Bon courage et à+

[arundel]

Merci mromain pour ta suggestion.

J'ai regardé la doc Microsoft indiquée par les liens, c'est pour le moins succinct !

Avant d'aller plus loin dans ce sens, j'ai eu une autre idée qui simplifierait bien les choses : il est facile de transformer une liste à puces en smartart (clic droit > Convertir en graphique smartart).
Le problème c'est que je n'ai pas trouvé le moyen de le faire par macro.

Sais-tu si c'est possible ?

[mromain]

Bonjour,

Pour l'aide, il faut explorer les membres des objets pour voir ce qu'ils savent faire.
Mais dans tous les cas, ton idée est quand même bien plus simple.

Essaye avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActivePresentation.Slides(1).Shapes(1).ConvertTextToSmartArt Application.SmartArtLayouts(97)

A+

[arundel]

Merci mromain,

La conversion du texte en smartart fonctionne à merveille.

En adaptant légèrement à mon contexte j'obtiens exactement le résultat que je souhaitais.

Encore merci.