Encore un soucis avec un objet.

[Eric D]

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

 

[ziopizza]

Bonjour Eric D,
Un petit exemple sur la manipulation de formes.
Peut étre cela te rendras service.
Salut
Yves [file name=formeetnom_20060428164245.zip size=15348]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formeetnom_20060428164245.zip[/file]

 

[Eric D]

Bonjour ziopizza, le forum,

Pour l'objet msoShapeRectangle cité précédement j'ai appliqué ce que j'ai cru comprendre ie:

Set myDocument = Worksheets(1)
For Each sh In myDocument.Shapes
If sh.Type = msoAutoShape Then
sh.Fill.Top = 12
End If
Next
ou

Sheets('Feuil1').Formeautomatique4.ShapeRange.IncrementTop -100

mais rien y fait ???
As tu une idée sans que je sélectionne la forme ?
Merci
Eric D

 

[ziopizza]

Re bonjour Eric D,
Désolé sans selectionner la forme je ne trouve pas de solutions ?.
Salut Yves
oups une autre piste.

Message édité par: ziopizza, à: 28/04/2006 21:06

 

[ziopizza]

Toujour moi ,
Essaye ce code ,
Sub tt()
Set myDocument = Worksheets(1)
With myDocument.Shapes(1)

.IncrementLeft 70
.IncrementTop -50

End With

End Sub
Salut
Yves

Message édité par: ziopizza, à: 28/04/2006 21:10