Discussion :

[Fanny33333]

Bonjour à tous !

J'ai besoin de pouvoir insérer des images en commentaires dans mon fichier excel. J'ai récupéré le code suivant, qui fonctionne bien :

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
Sub Img_dans_Commentaire()
With Application.FileDialog(msoFileDialogFilePicker)
    'Indique qu'il s'ait d'ouvrir un dossier pour y sélectionner un fichier
         .AllowMultiSelect = False         'Un seul Fichier possible
         .InitialFileName = "C:\Users\Fanny\Documents\Pro\photos"
    'Répertoire d'ouverture de la fenetre
         .Filters.Clear                    'Annuler les filtres au cas où
         .Filters.Add Description:="Images", Extensions:="*.gif", Position:=1
         .Title = "Choix de l'image"
    'Verification au cas ou click sur annul dans la boite + lance la boite
         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'signaler à la personne qu'aucun fichier n'est choisi :
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
ActiveCell.AddComment
ActiveCell.Comment.Shape.Fill.UserPicture TheFile
End Sub

Seulement, lorsque l'on fait la manip manuellement, on peut cocher l'option "conserver les proportions" : est-il possible de rajouter une ligne de commande faisant la même chose dans la macro ???

Merci beaucoup,
Fanny

[clementmarcotte]

Bonjour,

J'ai un peu modifié la procédure initiale, et cela a l'air de fonctionner

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
Sub Img_dans_Commentaire()
     With Application.FileDialog(msoFileDialogFilePicker)
     'Indique qu'il s'ait d'ouvrir un dossier pour y sélectionner un fichier
     .AllowMultiSelect = False 'Un seul Fichier possible
     .InitialFileName = "C:\Users\Fanny\Documents\Pro\photos"
     'Répertoire d'ouverture de la fenetre
     .Filters.Clear 'Annuler les filtres au cas où
     .Filters.Add Description:="Images", Extensions:="*.gif", position:=1
     .Title = "Choix de l'image"
     'Verification au cas ou click sur annul dans la boite + lance la boite
     If .Show = -1 Then thefile = .SelectedItems(1) Else thefile = 0
     End With
     'signaler à la personne qu'aucun fichier n'est choisi :
     If thefile = 0 Then
     MsgBox ("aucun fichier image choisi")
     Exit Sub
     End If
    Dim Commentaire As Comment
    Set Commentaire = ActiveCell.AddComment
    'ActiveCell.Comment.Shape.Fill.UserPicture thefile
    Dim UneForme As Shape
    Set UneForme = Commentaire.Shape
    With UneForme
        .Fill.UserPicture thefile
        .ScaleHeight 1, msoFalse
        .ScaleWidth 1, msoFalse
    End With
 End Sub

P.S. Un truc bien utile, pour tout le monde :

Dans le doute, un clic sur un mot-clef et

[Fanny33333]

Bonjour,

Merci de ta réponse mais... ça ne fonctionne pas :/

Lorsque je conserve les proportions en insérant manuellement l'image, si j’agrandis mon commentaire en le tirant sur la droite, seul le haut de mon image va s'afficher mais les proportions seront conservées. Avec ton code comme avec le mien, si je fais la même chose, toute l'image apparait mais déformée :/

Je pourrai bien sûr agrandir mon commentaire en appuyant sur Maj, mais le problème est que selon la taille initiale de l'image celle-ci est déformée dès son insertion :/

[Qwazerty]

Salut

Étonnant tout ça...
Je n'ai pas la solution je met ici ce que j'ai pu trouver si ça peut aider d'autres à avancer

Lors d'une création manuelle la différence avec la création par code tiens au paramètre "Verrouiller les proportions de l'image" qui peut-être choisi lors de la sélection d'une image.

• Si coché, la déformation du commentaire tronque l'image si son ratio n'est pas le même que celui de l'image (effet que tu désir si j'ai bien compris)
• Si non coché, la déformation du commentaire applique un effet "stretch" sur l'image et la déforme pour qu'elle tienne en entier dans le commentaire.

J'ai comparait une bonne partie des propriété des deux shapes (création manuelle / création par code), il y a très peu de différences et je n'ai pas trouvé celle qui cause une telle différence.


Autre possibilité, as tu remarqué la possibilité de conservation du ratio de l'image, dans "format de commentaire" (clique droit sur le contour [shape] du commentaire), donc l'onglet "Dimension", la case à cocher "Proportionnel" joue ce rôle. Petit bémol, si l'utilisateur utilise les poignées situées dans les angles du commentaire ça fonctionne bien, par contre s'il utilise les poignées situées sur les coté du commentaire... ça fonctionne moins bien :p.
Au passage, je n'ai pas compris le role de la case à cocher "Proportionnelle à l'image d'origine" avec celui la je pensais avoir trouvé... mais non fausse piste semble-t-il.

[Edit]
Un autre découverte, du moins pour moi (je ne connaissais pas la possibilité de mettre une image dans un commentaire), on peut utiliser le bouton "Reproduire la mise en forme", si on clique sur un shape de commentaire on peut ainsi en rendre un autre identique et dans ce cas, le comportement de l'image est bien transféré au commentaire cible.
[/Edit]


Bon courage

++
Qwaz

[patricktoulon]

bonsoir a tous
qwazerty
le checkbox pour les proportion quand il est cliqué mémorise la proportion actuelle du commentaire
et ensuite quand on se sert de l'élasticité il se modifie proportionnellement a sa proportion initiale

mais l'image est en background donc l'effet stretch(pleine forme) y est toujours

pour le genre de manip désiré il va falloir astucer
insérer une image dans le sheets ,la copier, insérer une shape rectangle a la dimension initial e du Shape, grouper les deux en dimensionnant proportionnellement l'image dans son ration a la plus petite taille (larg ou haut ) du commentaire
grouper enfin le shapes et l'image copie Picture export avec un chart application dans le commentaire
ca fait beaucoup mais c'est le seul moyen
reste que l'image s'élargira quand même
mais ca permet de laisser une partie blanche par exemple dans le commentaire afin d'y écrire quelque chose

[Qwazerty]

Salut

Je ne parlais pas cette case la Patrick, l'autre en dessous.

Sinon peut-être en configurant comme il faut un commentaire caché dans un coin du document.
Puis pour ajouter un commentaire, utiliser le code classic et utiliser les fonctions Pickup et Apply pour configurer le nouveau commentaire à l'identique du commentaire modèle, il reste ensuite à modifier uniquement l'image en gardant tous les autres paramètre.

J'ai tenté le coup vite fait, ça fonctionne... à un détail prés l'encrage de l'image dans le commentaire n'est plus le coin haut/gauche... mais le centre...


il y a une autre étrangeté, l'accès par le code au shaperange est super laborieux... voir impossible sans passer par Selection... ce qui est plutôt vilain.
++
Qwaz

[clementmarcotte]

Bonjour,

Bonjour,

Merci de ta réponse mais... ça ne fonctionne pas :/

Lorsque je conserve les proportions en insérant manuellement l'image, si j’agrandis mon commentaire en le tirant sur la droite, seul le haut de mon image va s'afficher mais les proportions seront conservées. Avec ton code comme avec le mien, si je fais la même chose, toute l'image apparait mais déformée :/

Je pourrai bien sûr agrandir mon commentaire en appuyant sur Maj, mais le problème est que selon la taille initiale de l'image celle-ci est déformée dès son insertion :/

Je veux bien, mais ce n'était pas dans la question initiale.