Récupérer les dimensions d'une case d'un tableau powerpoint

Bonjour à tous,

Je suis en train de mettre à jour une présentation Powerpoint 2010 à partir d'un fichier Excel à l'aide de VBA et je rencontre un problème.

Afin de mettre à jour cette présentation, j'ai besoin de copier coller une image d'un fichier excel vers la présentation.

Une fois que mon image est dans la présentation, j'ai besoin de la placer à un certain endroit et de la redimensionner.

J'arrive à la placer et à la redimensionner mais le problème est que sa dimension dépend de la taille de la cellule d'un tableau powerpoint. Je cherche donc à récupérer la hauteur et la largeur de cette cellule (en pixel) mais je ne trouve aucune commande...

Voici le code avec ce que j'ai tenté:

l = Sld.Shapes("Table 7").Table.Cell(1, 1).Shape.Width

h = Sld.Shapes("Table 7").Table.Cell(1, 1).Shape.Height

'Replacing and resizing the picture

With Sld.Shapes("Picture 2")

.LockAspectRatio = msoFalse

.Top = 83

.Left = 28

.Height = h-10

.Width = l

End With

J'ai réussi à me répondre tous seul, il fallait récupérer les dimensions de la ligne et enlever le shape

Le code ci-dessous:

l = Sld.Shapes("Table 7").Table.Columns(1).Width

h = Sld.Shapes("Table 7").Table.Rows(1).Height

'Replacing and resizing the picture

With Sld.Shapes("Picture 2")

.LockAspectRatio = msoFalse

.Top = 83

.Left = 28

.Height = h - 20

.Width = l

End With

Rechercher des sujets similaires à "recuperer dimensions case tableau powerpoint"