IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

agrandir le contenu de l'image (zoom) [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut agrandir le contenu de l'image (zoom)
    Bonjour,

    je viens ici pour trouver de l'aide. Je n'arrive pas à lire correctement le contenu d'une image.

    Je copie beaucoup de cellules depuis un autre fichier excel source.
    Les cellules copiées sont passées en image pour afficher celle-ci dans un userform dans mon fichier excel cible.

    voici mon code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    Private Sub UserForm_Click()
    Dim Wbk1 As Object
    Dim Wbk As Workbook
    Dim pic_rng As Range
    Dim NomImage As String
    Dim sh_temp As Worksheet
    Dim ch_temp As Chart
    Dim PicTemp As Picture
     
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
     
    Set Wbk = Workbooks.Open("test.xls") 'On ouvre le fichier contenant les donnees a recuperer pour image
    Wbk.Unprotect
    Worksheets("t").Activate
    Worksheets("t").Select
    Worksheets("t").Unprotect
     
    Set pic_rng = Sheets(1).Range("A5:K9") 'faire le xlendup plus tard
     
     
     
    Set sh_temp = Worksheets.Add
    Charts.Add
    ActiveChart.Location where:=xlLocationAsObject, Name:=sh_temp.Name
    Set ch_temp = ActiveChart
    pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ch_temp.Paste
    Set PicTemp = Selection
    With ch_temp.Parent
    .Width = PicTemp.Width
    .Height = PicTemp.Height
    End With
    ch_temp.Export Filename:=ThisWorkbook.path & "\" & "range_output.jpeg"
     
     
    Application.DisplayAlerts = False
     
    NomImage = ThisWorkbook.path & "\" & "range_output.jpeg"
    UserForm7.Image1.AutoSize = False 'true ou false ça ne fait rien
    UserForm7.Image1.PictureSizeMode = fmPictureSizeModeZoom
     
     
    UserForm7.Image1.Picture = LoadPicture(NomImage)
     
     
    sh_temp.Delete
     
    Wbk.Close
    Set Wbk1 = Nothing
    Set Wbk = Nothing
     
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
     
    End Sub

    si je mets à cette ligne ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set pic_rng = Sheets(1).Range("A5:K9") 'faire le xlendup plus tard
    j'obtiens cela dans mon userform7.image1
    Nom : ligne plus grosse.jpg
Affichages : 378
Taille : 58,8 Ko
    des lignes lisibles et grosses

    si je veux tout le contenu de mon fichier alors je mets ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set pic_rng = Sheets(1).Range("A5:K203") 'faire le xlendup plus tard
    sachant que dans 5 jours le K203 sera peut être passé à K252 par exemple

    j'obtiens comme image alors ceci dans mon userform7.image1
    Nom : toutes les lignes.jpg
Affichages : 359
Taille : 113,9 Ko
    tout est comprimé et j'en suis déprimé

    comment faire pour qu'avec beaucoup de ligne j'obtienne le même résultat qu'avec 5 lignes par exemple. j'ai l'impression que prendre de "A5:K203" il n' y a pas "de mise à l'échelle" et qu'il faudrait faire 5 lignes par 5 lignes enregistrer dans une image et autant d'image que j'aurai de bloc de 5 images mais c'est ingérable.


    En espérant exposé clairement mon soucis.
    Merci d'avance si vous avez astuce ou idée.

  2. #2
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 579
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 579
    Par défaut
    Bonjour,
    Regarde l'option autosize du contrôle

  3. #3
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut
    Hélas non, je l’ai mis dans mon code avec autosize à true ou false ni fait rien.
    Ce n’est pas l’image (son cadre) que je veux agrandir mais son contenu.
    C’est à dire que image1.width=500 et par exemple image1.height=1200, le cadre s’agrandit mais le contenu reste illisible.

    Je pense que les propriétés de l’image n’y feront rien.


    C’est peut etre la méthode qui n’est pas bonne.
    dés le départ je veux pouvoir consulter le contenu du fichier excel source avec ses mises en formes dans une image ou autre objet… pour de la consultation.

  4. #4
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 247
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 247
    Par défaut
    Hello,
    et en utilisant une image dans une Frame avec barres de défilement ?
    Nom : ImageScroll.png
Affichages : 330
Taille : 144,9 Ko

    Ami calmant, J.P

  5. #5
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut
    Merci pour l’aide.

    Pas essayer le frame, je me suis orienté vers une listbox. Hmm je vais tenter le frame et je vous dirai.

  6. #6
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut
    Bonjour Jurrasic

    Je n'arrive pas obtenir ce que vous avez fait.

    j'ai fais un listbox ok, mais j'aimerais bien connaitre comment vous avez fait pour rendre lisible le range.

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [D7]image zoomée et modification
    Par dleu dans le forum Delphi
    Réponses: 2
    Dernier message: 17/01/2007, 17h59
  2. Réponses: 6
    Dernier message: 15/01/2007, 11h15
  3. Agrandir la taille d'une image
    Par Bouassa dans le forum AWT/Swing
    Réponses: 6
    Dernier message: 01/03/2006, 11h22
  4. [Image] zoom et redimensionnement
    Par ryo ohki dans le forum 2D
    Réponses: 6
    Dernier message: 09/09/2005, 01h03
  5. [Image] Zoom Dezoom
    Par cyber_jad dans le forum 2D
    Réponses: 5
    Dernier message: 12/11/2004, 14h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo