Réglage de la position d'un objet dans PowerPoint à l'aide de VBA

Je suis en utilisant les lignes suivantes de VBA pour définir la taille/position d'une sélection Excel j'ai juste collé dans PowerPoint:

Set Shp = _
PPApp.ActivePresentation.Slides( _
PPApp.ActiveWindow.Selection.SlideRange.slideindex).Shapes(3)
Shp.ScaleHeight 0.75, msoCTrue
Shp.ScaleWidth 0.75, msoCTrue
Shp.Left = 0.58
Shp.Top = 1.6

Cependant, après l'exécution de la macro, ma forme a la position horizontale de 0,01" dans le coin en haut à gauche et en position verticale de "0.02" dans le coin en haut à gauche. Basé sur mon code, le poste devrait être de 0,58 et 1.6. Toutes les idées de pourquoi la position n'est pas réglé correctement?

Les unités par défaut sont Points (72 points=1 pouce)

OriginalL'auteur user1533277 | 2013-12-24

5

À ajouter à ce que Tim a dit, PowerPoint utilise le point comme son système de mesure, au moins pour les fins de l'automatisation, afin de faire ceci à la place:
```
Shp.Left = 0.58 * 72
Shp.Top = 1.6 * 72
```
OriginalL'auteur Steve Rindsberg

Vous devez vous connecter pour publier un commentaire.