information sur IncrementTop

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é