macro et image 2

[Cruz]

slt tout le monde
J'ai une macro de ce type:

Sub macro 1()
If Range('A2') = 25 Then
Activesheet.pictures.insert('C:/Mes documents/image 1.bmp')
End If
End Sub

Que faut-il changer dans cette macro pour que l'image 1 soit insérée dans une case précise par exemple A1

merci d'avance
a+

 

[Eric C]

Bonjour le forum
Bonjour Cruz

Tu ajoutes la cellule de destination ainsi :

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

 

[MichelXld]

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

 

[Cruz]

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+

 

[MichelXld]

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

 

[KIM]

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