VBA: Procédure pour ajouter une image dans une note
22 réponses
Emile63
Bonjour Í tous,
Ajoutant fréquemment des images dans les Notes des cellules (Anciennement les commentaires) j'aimerais automatiser la procédure un peu fastidieuse avec du code VBA, mais je ne vois pas comment le faire...
Si quelqu'un Í une suggestion, je suis preneur. :-)
Voici un peu le schéma auquel je pense : ---------------------------------
Sub Ajouter image ()
'Insertion d'un commentaire / note a partir de la cellule active.
ActiveCell.AddComment
With ActiveCell.Comment
.Visible = False
.Text Text:=""
' ????
MonCheminImage InputBox
End With
With Selection
.ShapeRange.ScaleWidth 1.85, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 2.78, msoFalse, msoScaleFromTopLeft
' élargir l'image a une largeur de 5 cm avec la hauteur proportionnelle
End with
End Sub
Je vous remercie d'avance pour votre aide,
Bonne journée
Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 07:47, Emile63 a écrit :
Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est standard. L'image s'adapte au commentaire. En insérant l'image dans la feuille de calcul, il est possible de déterminer la dimension de l'image. Immédiatement après l'insertion de l'image dans la feuille, j'obtiens avec cette ligne de code, la largeur originale de l'image A = Sh.Width L'Image est par la suite redimensionnée selon la largeur choisit pas l'usager. Dans le commentaire, l'image n'est pas aux dimensions originales, mais aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille est supprimée. Chez moi, cela fonctionne très bien. Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et observer la transformation de l'image originale... Dans un fichier zip, insère quelques images qui te posent problème. Ce n'est pas sÍ»r que je peux regarder cela aujourd'hui... MichD
Ok, prends ton temps. Merci pour ta disponibilité, et bonne fin de journée. https://www.cjoint.com/c/KIpnB1wcFtk
J'ai pris quelques instants pour faire un test avec l'une de tes images (doigts) et voici le résultat illustré dans un fichier : https://www.cjoint.com/c/KIprTkVB8RF MichD
Le 15/09/21 Í 09:29, Emile63 a écrit :
Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 07:47, Emile63 a écrit :
Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est
standard. L'image s'adapte au commentaire.
En insérant l'image dans la feuille de calcul, il est possible de
déterminer la dimension de l'image.
Immédiatement après l'insertion de l'image dans la feuille, j'obtiens
avec cette ligne de code, la largeur originale de l'image
A = Sh.Width
L'Image est par la suite redimensionnée selon la largeur choisit pas
l'usager.
Dans le commentaire, l'image n'est pas aux dimensions originales, mais
aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille
est supprimée. Chez moi, cela fonctionne très bien.
Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et
observer la transformation de l'image originale...
Dans un fichier zip, insère quelques images qui te posent problème.
Ce n'est pas sͻr que je peux regarder cela aujourd'hui...
MichD
Ok, prends ton temps.
Merci pour ta disponibilité, et bonne fin de journée.
https://www.cjoint.com/c/KIpnB1wcFtk
J'ai pris quelques instants pour faire un test avec l'une de tes images
(doigts) et voici le résultat illustré dans un fichier :
https://www.cjoint.com/c/KIprTkVB8RF
Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 07:47, Emile63 a écrit :
Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est standard. L'image s'adapte au commentaire. En insérant l'image dans la feuille de calcul, il est possible de déterminer la dimension de l'image. Immédiatement après l'insertion de l'image dans la feuille, j'obtiens avec cette ligne de code, la largeur originale de l'image A = Sh.Width L'Image est par la suite redimensionnée selon la largeur choisit pas l'usager. Dans le commentaire, l'image n'est pas aux dimensions originales, mais aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille est supprimée. Chez moi, cela fonctionne très bien. Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et observer la transformation de l'image originale... Dans un fichier zip, insère quelques images qui te posent problème. Ce n'est pas sÍ»r que je peux regarder cela aujourd'hui... MichD
Ok, prends ton temps. Merci pour ta disponibilité, et bonne fin de journée. https://www.cjoint.com/c/KIpnB1wcFtk
J'ai pris quelques instants pour faire un test avec l'une de tes images (doigts) et voici le résultat illustré dans un fichier : https://www.cjoint.com/c/KIprTkVB8RF MichD
Emile63
Le Wednesday, September 15, 2021 Í 7:46:40 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 09:29, Emile63 a écrit :
Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 07:47, Emile63 a écrit :
Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est standard. L'image s'adapte au commentaire. En insérant l'image dans la feuille de calcul, il est possible de déterminer la dimension de l'image. Immédiatement après l'insertion de l'image dans la feuille, j'obtiens avec cette ligne de code, la largeur originale de l'image A = Sh.Width L'Image est par la suite redimensionnée selon la largeur choisit pas l'usager. Dans le commentaire, l'image n'est pas aux dimensions originales, mais aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille est supprimée. Chez moi, cela fonctionne très bien. Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et observer la transformation de l'image originale... Dans un fichier zip, insère quelques images qui te posent problème. Ce n'est pas sÍ»r que je peux regarder cela aujourd'hui... MichD
Ok, prends ton temps. Merci pour ta disponibilité, et bonne fin de journée. https://www.cjoint.com/c/KIpnB1wcFtk
J'ai pris quelques instants pour faire un test avec l'une de tes images (doigts) et voici le résultat illustré dans un fichier : https://www.cjoint.com/c/KIprTkVB8RF MichD
Bonjour MichD, Merci beaucoup pour ton aide, cette fois, les proportions semblent bonnes :-) Je te souhaite un très bon week-end, Emile
Le Wednesday, September 15, 2021 Í 7:46:40 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 09:29, Emile63 a écrit :
> Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
>> Le 15/09/21 Í 07:47, Emile63 a écrit :
>>>
>
>> Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est
>> standard. L'image s'adapte au commentaire.
>> En insérant l'image dans la feuille de calcul, il est possible de
>> déterminer la dimension de l'image.
>> Immédiatement après l'insertion de l'image dans la feuille, j'obtiens
>> avec cette ligne de code, la largeur originale de l'image
>> A = Sh.Width
>>
>> L'Image est par la suite redimensionnée selon la largeur choisit pas
>> l'usager.
>>
>> Dans le commentaire, l'image n'est pas aux dimensions originales, mais
>> aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille
>> est supprimée. Chez moi, cela fonctionne très bien.
>>
>> Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et
>> observer la transformation de l'image originale...
>>
>> Dans un fichier zip, insère quelques images qui te posent problème.
>>
>> Ce n'est pas sͻr que je peux regarder cela aujourd'hui...
>>
>> MichD
>
> Ok, prends ton temps.
> Merci pour ta disponibilité, et bonne fin de journée.
>
> https://www.cjoint.com/c/KIpnB1wcFtk
>
J'ai pris quelques instants pour faire un test avec l'une de tes images
(doigts) et voici le résultat illustré dans un fichier :
https://www.cjoint.com/c/KIprTkVB8RF
MichD
Bonjour MichD,
Merci beaucoup pour ton aide, cette fois, les proportions semblent bonnes :-)
Je te souhaite un très bon week-end,
Le Wednesday, September 15, 2021 Í 7:46:40 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 09:29, Emile63 a écrit :
Le Wednesday, September 15, 2021 Í 2:27:01 PM UTC+2, MichD a écrit :
Le 15/09/21 Í 07:47, Emile63 a écrit :
Chaque fois que tu ajoutes un commentaire, la dimension de celui-ci est standard. L'image s'adapte au commentaire. En insérant l'image dans la feuille de calcul, il est possible de déterminer la dimension de l'image. Immédiatement après l'insertion de l'image dans la feuille, j'obtiens avec cette ligne de code, la largeur originale de l'image A = Sh.Width L'Image est par la suite redimensionnée selon la largeur choisit pas l'usager. Dans le commentaire, l'image n'est pas aux dimensions originales, mais aux nouvelles dimensions de celle-ci. L'image insérée dans la feuille est supprimée. Chez moi, cela fonctionne très bien. Tu peux exécuter la procédure pas Í pas en utilisant la touche F8 et observer la transformation de l'image originale... Dans un fichier zip, insère quelques images qui te posent problème. Ce n'est pas sÍ»r que je peux regarder cela aujourd'hui... MichD
Ok, prends ton temps. Merci pour ta disponibilité, et bonne fin de journée. https://www.cjoint.com/c/KIpnB1wcFtk
J'ai pris quelques instants pour faire un test avec l'une de tes images (doigts) et voici le résultat illustré dans un fichier : https://www.cjoint.com/c/KIprTkVB8RF MichD
Bonjour MichD, Merci beaucoup pour ton aide, cette fois, les proportions semblent bonnes :-) Je te souhaite un très bon week-end, Emile
