information sur IncrementTop

[SHINTRA]

Bonjour le forum.

encore un question bizarre dsl mais .........

Existe il un moyen de definir l'instruction IncrementTop a fin que l'objet shape ce deplace toujour dans la zone visible.

normalement on a :

Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With

moi je voudrais :

Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop ( -/+ position actuel )
.IncrementRotation 30
End With

un peu peu comme la pub sur le coté du forum ?

merci d'avance de vos réponses eclairé

 

[MichelXld]

bonjour Shintra

dans cet exemple , la 'boite de dialogue' (composée de plusieurs shapes) , se repositionne automatiquement en bas et à droite de l'ecran lorsque l'on clique sur une cellule

Lien supprimé

Lien supprimé


bonne soirée
MichelXld

 

[SHINTRA]

Merci MichelXld pour ton info

Malheuresement, le liens vers les pieces jointes ne fonctionne pas.



je suis donc toujours 'dans les choux'

:ermm: :ermm: :ermm: :ermm:

 

[MichelXld]

bonjour Shintra

comment ça , les liens ne fonctionnent pas ?

il n'y a pas de probleme chez moi ...


bonne journée
MichelXld [file name=quelques_boites_de_dialogue.zip size=31535]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/quelques_boites_de_dialogue.zip[/file]

 

[SHINTRA]

Ben c sans doute un probleme de configuration de mon reseau 'interne'.

je reessayerais depuis chez moi.

merci tout de meme de ta gentillesse