Modif d'un code Insertion Image dans Shape

[MuscatMimi]

Bonsoir

Avec le Code ci-dessous, je peux insérer une Images dans un shape
mais il ce trouve qu'il faut que le Bouton soit sur la feuille concernnée

Hors

Mon Bouton va être dans un Usf

J'aimerais savoir s'il serait possible, de modifier ce Code afin
qu'avec le Btn dans mon Usf, je puisse allez Valider dans la feuille "Facture"

Sub InsertionImage()
Dim Emplacement As Range
Dim Img As Object
Dim ShapeObj As Shape

'Boucle pour supprimer l'ancienne imag
For Each ShapeObj In ActiveSheet.Shapes
If ShapeObj.Name = "Cible" Then ActiveSheet.Shapes("Cible").Delete
Next ShapeObj

If Application.Dialogs(xlDialogInsertPicture).Show Then
'Définit l'emplacement de l'image
Set Emplacement = Range("A2:E14")
Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With Img.ShapeRange
'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
.Name = "Cible"
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If

End Sub

merci a tous a l'avance
Cordialement

 

[skoobi]

Re : Modif d'un code Insertion Image dans Shape

Bonjour Christian,

remplace

ActiveSheet

par

Sheets("Facture")

partout dans ce code et ça devrait le faire.

 

[MuscatMimi]

Re : Modif d'un code Insertion Image dans Shape

Salut Skooby

gentil de ta part de m'avoir répondu

Je viens d'essayer,mais j'ai une erreur a cette ligne

Set Img = Sheets("Facture").DrawingObjects(Sheets("Facture").Shapes.Count)

et apparament ça ne copy pas sur la Feuille Facture

A+++++++++++++

 

[Guest]

Re : Modif d'un code Insertion Image dans Shape

Bonjour

Hi,skoobi😀

Et avec:

Sub InsertionImage()
Dim Emplacement As Range
Dim Img As Object
Dim ShapeObj As Shape

'Boucle pour supprimer l'ancienne imag
[SIZE=3][COLOR=red]With Sheets("Facture")
[/COLOR][/SIZE]For Each ShapeObj In [SIZE=3][COLOR=red].[/COLOR][/SIZE]Shapes
If ShapeObj.Name = "Cible" Then [COLOR=red].Shapes("Cible").Delete
[/COLOR]Next ShapeObj

If Application.Dialogs(xlDialogInsertPicture).Show Then
'Définit l'emplacement de l'image
Set Emplacement = [SIZE=3][COLOR=red].[/COLOR][/SIZE]Range("A2:E14")
[COLOR=red]Set Img = .DrawingObjects(.Shapes.Count)
[/COLOR]With Img.ShapeRange
'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
.Name = "Cible"
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Else
MsgBox "Insertion d'image interrompue."
End If
[SIZE=3][COLOR=red]End with[/COLOR][/SIZE]
End Sub

A+

 

[MuscatMimi]

Re : Modif d'un code Insertion Image dans Shape

Salut Hasco

Merci de m'avoir répondu

Je viens d'essayer,
mais toujour le même probléme
que j'ai décrit plus haut

Cordialement

 

[skoobi]

Re : Modif d'un code Insertion Image dans Shape

Re,
hello Ges 🙂,

là il va falloir envoyer le fichier car on risque tourner en rond.

 

[MuscatMimi]

Re : Modif d'un code Insertion Image dans Shape

Re a tout les deux

ben ,j'avoue pas comprendre, j'ai continu afaire des essai, et la oups ça fonction, sur mon classeur essai, je ne l'ai pas encore inclu dans mon projet
J'ai simplement remonné ma feuil a nouveau Facture et ça fonctionne

Je vous tiens au courant , une fois que j'aurai introduit ce Code dans mon projet

Merci encore a tout les deux

 

[MuscatMimi]

Re : Modif d'un code Insertion Image dans Shape

Re
C'est OK j'ai inséré ce code dans mon projet
ça fonctionne bien

Merci encore de votre aide

 

[wilbatpum]

Re : Modif d'un code Insertion Image dans Shape

merci d'avance a ceux qui me donneront des conseils a améliorer le référencement.