Problème taille image lors d'un Screenshots d'une cellule

[zephir94]

Bonjour à tous,

Je voudrais récupérer une image d'une cellule dans laquelle j'utilise une police de caractère EAN128.
Mon soucis est que l'image que je copie sur mon disque dur est un poils plus petit et cette image générée ne fonctionne pas avec mon lecteur code barres car elle est ratatinée !

Voici mon code pour faire un Screenshots et enregistrer mon image sur le HDD.

Private Sub CommandButton5_Click()
Dim Plage As Range
Application.ScreenUpdating = False
If TextBox3.Value = "" Then
MsgBox "Pour continuer veuillez saisir des chiffres ou des lettres", vbCritical, "Message du système"
Exit Sub
End If
Fichier = ThisWorkbook.Path & "\gen128.bmp"
If Dir(Fichier) <> "" Then Kill Fichier
Feuil4.Range("A17").Value = TextBox3.Value
With Sheets(4)
    Sheets(4).Columns("c:c").EntireColumn.AutoFit
    Set Plage = .Range("C17:C18")
    Plage.CopyPicture
    With .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
    
  XXXX  Garder les dimentions de mon image ?????? XXXX
    
    .Paste
       .Export ThisWorkbook.Path & "\gen128.bmp", "bmp"
    End With
    .ChartObjects(.ChartObjects.Count).Delete
End With
Set Plage = Nothing
    UserForm1.Image3.Picture = LoadPicture(ThisWorkbook.Path & "\gen128.bmp")
    Sheets(1).Select
CommandButton4.Enabled = True
End Sub

Merci par avance pour vos aide pour me permettre de garder la taille originale.

Bonne soirée

 

[youky(BJ)]

Bonjour,
A tester, dans les propriétés du Control Image1
>>>PictureSizeMode essayer la valeur 1 ou 0 si déja 1
C'est tout
Bruno