Bonjour à toutes et tous,
La fonction avec le code qui suit me permet d'insérer dans un rapport l'image d'un plan (scan en .jpg).
Le problème est que l'image peut-être en mode portrait ou paysage. Aussi, avant de l'insérer je voudrai la tester afin de savoir si portrait ou paysage, et de ce fait appliquer la bonne mise en forme (dans le code ci-après format paysage).
Je pensais le faire en vérifiant si la hauteur de l'image est supérieure à sa largeur, mais je ne suis pas parvenu à trouver une instruction me permettant de le faire.
Merci d'avance pour vos réponses.
Sébastien.
Sub insertplan(plan, rapend) 'fonction qui insère le plan
Dim ongplan As Worksheet
Dim draw As Object
rapend.Activate 'activation du fichier rapport
Set ongplan = Sheets.Add(after:=Sheets("Demande")) 'rajoute onglet plan
ongplan.Name = "Plan" 'nomme onglet plan
ongplan.Activate 'active onglet plan
Set draw = ActiveSheet.Shapes.AddPicture(plan, False, True, 0, 0, 660, 440) 'insere plan dans coin gauche de la feuille
Set ongplan = Nothing
Set draw = Nothing
rapend.Save 'enregistre le rapport
rapend.Close 'ferme le rapport
End Sub
La fonction avec le code qui suit me permet d'insérer dans un rapport l'image d'un plan (scan en .jpg).
Le problème est que l'image peut-être en mode portrait ou paysage. Aussi, avant de l'insérer je voudrai la tester afin de savoir si portrait ou paysage, et de ce fait appliquer la bonne mise en forme (dans le code ci-après format paysage).
Je pensais le faire en vérifiant si la hauteur de l'image est supérieure à sa largeur, mais je ne suis pas parvenu à trouver une instruction me permettant de le faire.
Merci d'avance pour vos réponses.
Sébastien.
Sub insertplan(plan, rapend) 'fonction qui insère le plan
Dim ongplan As Worksheet
Dim draw As Object
rapend.Activate 'activation du fichier rapport
Set ongplan = Sheets.Add(after:=Sheets("Demande")) 'rajoute onglet plan
ongplan.Name = "Plan" 'nomme onglet plan
ongplan.Activate 'active onglet plan
Set draw = ActiveSheet.Shapes.AddPicture(plan, False, True, 0, 0, 660, 440) 'insere plan dans coin gauche de la feuille
Set ongplan = Nothing
Set draw = Nothing
rapend.Save 'enregistre le rapport
rapend.Close 'ferme le rapport
End Sub
