XL 2010 VBA - Copier une image

[Titi456]

Bonjour,

J'ai un code qui fonctionne très bien pour pouvoir insérer une image dans le fichier ci-joint (cliquer avec le bouton gauche dans G5:K30) cependant après l'avoir insérée, je souhaiterais pouvoir la copier en cliquant sur le bouton de droite de ma souris.

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

 

[fanch55]

Bonjour,
Votre Classeur est protégé et tant qu'il le sera, vous ne pourrez pas utiliser le clic droit sur votre Image .

 

[sylvanu]

Bonjour Titi, Fanch,
Une alternative, peut être, est de copier l'image lorsqu'on la colle dans la feuille, avec :

ActiveSheet.Range("G5:K30").CopyPicture xlScreen, xlBitmap

 

[patricktoulon]

Bonsoir
insérer OK
click droit OK
Copier OK mais pour en faire quoi?

 

[job75]

Bonsoir à tous,

Chez moi sur Win 11 Excel 2019 il faut différer l'exécution du Copier avec Application.OnTime :

Private Sub Image1_Click()
' Routing pour insérer image dans un contrôle de formulaire ActiveX
Dim Pict
Dim ImgFileFormat As String
Dim Ans As Integer

ImgFileFormat = "Image Files (*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf ), *.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf"

Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then    'Aucune image sélectionnée
    Pict = ""
    [A2].MergeArea.Copy [A2] 'vide le presse-papier
Else
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Application.OnTime 1, Me.CodeName & ".Copier" 'exécution différée
End If
    
Image1.Picture = LoadPicture(Pict)
Application.ScreenUpdating = True 'rafraîchit l'écran

End Sub

Sub Copier()
[G5:K30].CopyPicture xlScreen, xlBitmap  ' Copie l'image dans le presse papier
End Sub

Nota : les fichiers .pdf ne peuvent pas être utilisés.

Bonne nuit.

 

[Titi456]

Bonjour Franch55, Sylvanu et Job75,

Merci beaucoup pour vos proposition. @job75 c'est exactement ce que je souhaitais. @Franch75 Ce code me permet de copier l'image dans un autre document.

Private Sub Image1_Click()
' Routing pour insérer image dans un contrôle de formulaire ActiveX
Dim Pict
Dim ImgFileFormat As String
Dim Ans As Integer

ImgFileFormat = "Image Files (*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf ), *.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf"

Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then    'Aucune image sélectionnée
    Pict = ""
    [A2].MergeArea.Copy [A2] 'vide le presse-papier
Else
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Application.OnTime 1, Me.CodeName & ".Copier" 'exécution différée
End If
    
Image1.Picture = LoadPicture(Pict)
Application.ScreenUpdating = True 'rafraîchit l'écran

End Sub

Sub Copier()
[G5:K30].CopyPicture xlScreen, xlBitmap  ' Copie l'image dans le presse papier
End Sub

Bonne journée à vous et encore merci.

Thierry