E
Eric D
Guest
Bonjour,
J'ai encote un souci avec mon objet créé par ce code:
Set myDocument = ActiveSheet
With myDocument.Shapes.AddShape(msoShapeRectangle, 369, 412, 342, 200).Shadow
j'aimerais le changer de place donc j'ai fais ce code:
.Top = 12
dans la boucle with -End with, mais il ne bouge pas, j'ai également fais:
Sheets('Feuil1').OLEObjects('Cible').Top = 12
'Cible' ayant été affecté a .Name de l'obje. Pourriez vous encore m'aider svp je ne m'en sors pas?
Merci et bonne fin de journée.
Eric D
J'ai encote un souci avec mon objet créé par ce code:
Set myDocument = ActiveSheet
With myDocument.Shapes.AddShape(msoShapeRectangle, 369, 412, 342, 200).Shadow
j'aimerais le changer de place donc j'ai fais ce code:
.Top = 12
dans la boucle with -End with, mais il ne bouge pas, j'ai également fais:
Sheets('Feuil1').OLEObjects('Cible').Top = 12
'Cible' ayant été affecté a .Name de l'obje. Pourriez vous encore m'aider svp je ne m'en sors pas?
Merci et bonne fin de journée.
Eric D