Macros avec images

C

Cruz

Guest
Bonjour tout le monde

J'ai une macro de ce style:

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

Que dois-je ajouter dans cette macro pour:
-Que les images 'image1' et 'image2' soit inserés dans la cellule
A4 ??
-Que la macro s'execute automatiquemet (sans effectuer une combinaison de lettre du style Ctrl+...).

Merci d'avance et A+
Cruz
 

laurent45

XLDnaute Occasionnel
Bonjour Cruz, le Forum,

Je ne suis pas sur Excel avec ce PC, mais je pense qu'en remplaçant ActiveSheet Range('A4').

Et pour la deuxième question, tu mets ton code dans l'Evènement _Change de ta feuille.

Espérant ne pas avoir fait d'erreur. Je ferais des vérif de ce que j'avance.

Bonne journée

@+

Laurent
 

MichelXld

XLDnaute Barbatruc
bonjour Cruz , bonjour Laurent

tu peux tester cette adaptation , à placer au niveau de la feuille


Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Emplacement As Range
Dim Image As Object

If Target.Address = '$A$1' Then

'-----------------------------------------
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

End If
End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 04/09/2005 09:36
 

Discussions similaires

Réponses
12
Affichages
394

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG