Discussion :

[raymoundo]

Après avoir inséré une image, je voudrai la deplacer de 5, 6 pixels sur la gauche et la descendre de 5 ou 6 pixel. Y a t il une fonction pour faire cela?

Je ne veux pas la decaler d'une cellule. Juste la deplacer par rapport à une cellule

Merci d'avance

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Image.top = Image.top + 5
Image.left = Image.left -12

Image.left = Cells(10,12).left + 5
Pour une image placée dans la feuille de calculs, tu dois indiquer la feuille
Worksheets(LaFeuille).Image...
A+

[raymoundo]

donc la j insere mon image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.Pictures.Insert( _
        chemin & "\" & compteur & ".bmp").Select

et ensuite j'ecris cela si ma feuille s'appelle nom?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("nom").Image.Left = Cells(10, 12).Left + 5

Comment je lui dis que mon image est celle que je viens d'inserer? IL faut que je remplace image par queluqe chose ou que je declare une variable image avec son chemin?

[SfJ5Rpw8]

voir ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
Dim iMonImage As Picture
Set iMonImage = ActiveSheet.Pictures.Insert(chemin & "\" & compteur & ".bmp")
iMonImage.Top = Cells(10, 2).Top + 5
iMonImage.Left = Cells(10, 2).Left

[raymoundo]

un grand merci ca marche