macro et image 2

Eric C

XLDnaute Barbatruc

• 27 Septembre 2005

• #2

Bonjour le forum
Bonjour Cruz

Tu ajoutes la cellule de destination ainsi :

Code:

If Range('A2') = 25 Then

Range('A1').Select

Activesheet.pictures.insert('C:/Mes documents/image 1.bmp')

Bonne soirée à toutes & à tous 😉

Message édité par: Eric C, à: 27/09/2005 19:39

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 27 Septembre 2005

• #3

bonsoir Cruz, bonsoir cher Eric

Cruz , je t'avais deja repondu ici

Lien supprimé


Dim Emplacement As Range
Dim Image As Object

'-----------------------------------------
On Error Resume Next
ActiveSheet.Shapes('cible').Delete
On Error GoTo 0

'-----------------------------------------
Set Emplacement = Range('A4') 'emplacement image dans la feuille

If Range('A1').Value = 2 Then
Set Image = ActiveSheet.Pictures.Insert('C:\\\\\\\\Mes Documents/image1.jpg')
Else
Set Image = ActiveSheet.Pictures.Insert('C:\\\\\\\\Mes Documents/image2.jpg')
End If

With Image.ShapeRange
.Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

C

Cruz

Guest

• 27 Septembre 2005

• #4

slt michelxld

je sais que tu m'a déjà répondu mais ta technique ne marche pas
elle n'a aucun effet différent

merci kan meme a+

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 27 Septembre 2005

• #5

rebonsoir Cruz

qu'est ce qui ne marche pas ? ça bloque sur quelle ligne ? quel est le message d'erreur ?

ci joint un autre exemple sur le meme principe et qui insert une image à l'emplacement d'une plage de cellules

Lien supprimé


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 28 Septembre 2005

• #6

Bonjour MichelXld, Cruz et le forum,
J'ai testé ton code MichelXld, depuis une semaine et je n'arrive pas à savoir pourquoi il me met ce message d'erreur:
'Erreur d'execution 1004,
Impossible de lire la propriété Insert de le classe Picture'
Me manque-t il qquechose?
Merci d'avance
Bien amicalement
KIM

 

Vote positif 0 Vote négatif