[PPT-2003] msoTable en VB

[Moi meme]

Bonjour,

Je suis en train de faire une appli qui pilote powerpoint via VB.net
Je poste ici car c'est la seule partie du forum ou j'ai trouvé des compétences en pilotage powerpoint via le code et que vb.net et vba se ressemble beaucoup.

Dans mon appli, je crée une présentation ppt et des slides.
L'application powerpoint est ouverte en arrière plan.
je crée à l'intérieur d'un de ces slides une table à une ligne et 6 colonnes

Code :

Dim table As PowerPoint.Shape = myPresentation.Slides(element.nomSlide).Shapes.AddTable(1, 6)

puis je rajoute des lignes en fonction du nombre de lignes nécessaires en les remplissant.

mon premier problème est que le nom du shape donné après création est changé tout seul après la première modification.
Comme je dois garder le nom en mémoire, je force le nom à sont nom d'origine après une modification.

Plus embêtant, mon deuxième problèmes est que plus tard si je reprends ma table et si je modifie les propriété myShape.Top par exemple, la propriété myShape.Type passe à msogroup et je n'ai plus accès à ma table.

Bien sur cette propriété est readOnly et je ne sais pas comment récupérer mon objet.

J'ai testé vite fait avec une table créer à la main dans une présentation existante et ce phénomène ne se produit pas.

Merci d'avance de votre aide

[Maxence HUBICHE]

Salut !

Désolé, mais je ne reproduis pas ton erreur...

Code :

1
2
3
Dim oTable As PowerPoint.Shape
    Set oTable = m_oPPTPresentation.Slides(1).Shapes.AddTable(1, 6)
    Debug.Print m_oPPTPresentation.Slides(1).Shapes(1).Name

m'affiche "Table 1"
Ensuite, je change de nom

Code :

1
2
m_oPPTPresentation.Slides(1).Shapes(1).Name = "myTable"
Debug.Print m_oPPTPresentation.Slides(1).Shapes(1).Name

ce qui m'affiche bien myTable
Je fais une modification

Code :

1
2
3
4
With m_oPPTPresentation.Slides(1).Shapes("myTable")
        .Left = 0
        .Top = 50
    End With

Et je regarde le nom

Code :

1
2
m_oPPTPresentation.Slides(1).Shapes(1).Name = "myTable"
Debug.Print m_oPPTPresentation.Slides(1).Shapes(1).Name

Ce qui m'affiche toujours myTable !

Donc, je n'ai peut-être pas bien compris ta question...
Mais si j'ai compris, je ne reproduis pas le 'bug'