Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour ® Papy Jean pour une image ....comme ceci :
Sub papy_jean() With ActiveSheet.Pictures("MonImage") .Top = Range("A2").Top ' par relative à une cellule .Left = 200 ' position absoluedans active sheet .BringToFront End With End Sub
;o))) @+
-----Message d'origine----- Bonjour !
Comment peut-on définir l'emplacement d'une image ?
Je n'ai trouvé que ShapeRange.IncrementLeft (et Top) mais il s'agit d'un déplacement La question devient comment trouver l'emplacement d'une image ?
ShapeRange.Left n'est pas reconnu comme méthode opérationnelle ??
Merci d'avance. Salutations. Papy Jean
.
Bonsour ® Papy Jean
pour une image ....comme ceci :
Sub papy_jean()
With ActiveSheet.Pictures("MonImage")
.Top = Range("A2").Top ' par relative à une cellule
.Left = 200 ' position absoluedans active sheet
.BringToFront
End With
End Sub
;o)))
@+
-----Message d'origine-----
Bonjour !
Comment peut-on définir l'emplacement d'une image ?
Je n'ai trouvé que ShapeRange.IncrementLeft (et Top)
mais il s'agit d'un déplacement
La question devient comment trouver l'emplacement d'une
image ?
ShapeRange.Left n'est pas reconnu comme méthode
opérationnelle ??
Bonsour ® Papy Jean pour une image ....comme ceci :
Sub papy_jean() With ActiveSheet.Pictures("MonImage") .Top = Range("A2").Top ' par relative à une cellule .Left = 200 ' position absoluedans active sheet .BringToFront End With End Sub
;o))) @+
-----Message d'origine----- Bonjour !
Comment peut-on définir l'emplacement d'une image ?
Je n'ai trouvé que ShapeRange.IncrementLeft (et Top) mais il s'agit d'un déplacement La question devient comment trouver l'emplacement d'une image ?
ShapeRange.Left n'est pas reconnu comme méthode opérationnelle ??
