J'ai une base de donn=E9e sur une feuille excel et j'ai cr=E9=E9 un
formulaire d'impression sur une autre.
Je cherche =E0 imprimer une image sur mon formulaire d'impression sur
une plage d=E9finie (E1:G11) sans d=E9former l'image d'origine (conserver
le ratio).
J'ai une base de donnée sur une feuille excel et j'ai créé un formulaire d'impression sur une autre. Je cherche à imprimer une image sur mon formulaire d'impression sur une plage définie (E1:G11) sans déformer l'image d'origine (conserver le ratio).
ça marche mais mon image est étirée sur la plage sélectinnée et si je passe .LockAspectRatio = msoTrue le résultat est pire !
Je suis preneur de tout vos conseils et merci d'avance.
Michel
Bonjou,
repertoire = ThisWorkbook.Path & ""
[E1].Select
Set monimage = ActiveSheet.Pictures.Insert(repertoire &
"bouchez.jpg")
r = ActiveCell.Height / monimage.Height
monimage.Height = ActiveCell.Height
monimage.Width = monimage.Width * r
JB
http://boisgontierjacques.free.fr
On 22 fév, 08:27, pumi <michel.pu...@mobilier-mace.com> wrote:
Bonjour à tous,
J'ai une base de donnée sur une feuille excel et j'ai créé un
formulaire d'impression sur une autre.
Je cherche à imprimer une image sur mon formulaire d'impression sur
une plage définie (E1:G11) sans déformer l'image d'origine (conserver
le ratio).
J'ai une base de donnée sur une feuille excel et j'ai créé un formulaire d'impression sur une autre. Je cherche à imprimer une image sur mon formulaire d'impression sur une plage définie (E1:G11) sans déformer l'image d'origine (conserver le ratio).
ça marche mais mon image est étirée sur la plage sélectinnée et si je passe .LockAspectRatio = msoTrue le résultat est pire !
Je suis preneur de tout vos conseils et merci d'avance.
Michel
pumi
Merci pour la réponse, ça marche nickel. Je rajoute simplement une condition sur le rapport hauteur/largeur de l'image pour l'ajuster au mieux
Michel
On 22 fév, 09:16, JB wrote:
Bonjou,
repertoire = ThisWorkbook.Path & "" [E1].Select Set monimage = ActiveSheet.Pictures.Insert(repertoire & "bouchez.jpg") r = ActiveCell.Height / monimage.Height monimage.Height = ActiveCell.Height monimage.Width = monimage.Width * r
JBhttp://boisgontierjacques.free.fr
On 22 fév, 08:27, pumi wrote:
Bonjour à tous,
J'ai une base de donnée sur une feuille excel et j'ai créé un formulaire d'impression sur une autre. Je cherche à imprimer une image sur mon formulaire d'impression sur une plage définie (E1:G11) sans déformer l'image d'origine (conserve r le ratio).
ça marche mais mon image est étirée sur la plage sélectinnée e t si je passe .LockAspectRatio = msoTrue le résultat est pire !
Je suis preneur de tout vos conseils et merci d'avance.
Michel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour la réponse, ça marche nickel. Je rajoute simplement une
condition sur le rapport hauteur/largeur de l'image pour l'ajuster au
mieux
Michel
On 22 fév, 09:16, JB <boisgont...@hotmail.com> wrote:
Bonjou,
repertoire = ThisWorkbook.Path & ""
[E1].Select
Set monimage = ActiveSheet.Pictures.Insert(repertoire &
"bouchez.jpg")
r = ActiveCell.Height / monimage.Height
monimage.Height = ActiveCell.Height
monimage.Width = monimage.Width * r
JBhttp://boisgontierjacques.free.fr
On 22 fév, 08:27, pumi <michel.pu...@mobilier-mace.com> wrote:
Bonjour à tous,
J'ai une base de donnée sur une feuille excel et j'ai créé un
formulaire d'impression sur une autre.
Je cherche à imprimer une image sur mon formulaire d'impression sur
une plage définie (E1:G11) sans déformer l'image d'origine (conserve r
le ratio).
Merci pour la réponse, ça marche nickel. Je rajoute simplement une condition sur le rapport hauteur/largeur de l'image pour l'ajuster au mieux
Michel
On 22 fév, 09:16, JB wrote:
Bonjou,
repertoire = ThisWorkbook.Path & "" [E1].Select Set monimage = ActiveSheet.Pictures.Insert(repertoire & "bouchez.jpg") r = ActiveCell.Height / monimage.Height monimage.Height = ActiveCell.Height monimage.Width = monimage.Width * r
JBhttp://boisgontierjacques.free.fr
On 22 fév, 08:27, pumi wrote:
Bonjour à tous,
J'ai une base de donnée sur une feuille excel et j'ai créé un formulaire d'impression sur une autre. Je cherche à imprimer une image sur mon formulaire d'impression sur une plage définie (E1:G11) sans déformer l'image d'origine (conserve r le ratio).