Discussion :

[retraite83]

Bonjour

il y a un point que je n'arrive pas à comprendre concernant l'affichage des images, je m'explique :

j'ai une photo créée par Photofiltre 439 X 300 pixels résolution 72

- En théorie cette photo devrait faire (arrondi) 15,5 cm X 10,6 cm (taille en cm = nb px * 2,54 / résolution)

- A l'écran dans photofiltre elle s'affiche en 11 cm X 7,9 cm en 100%

- En double-cliquant sur l'image directement dans le dossier elle s'affiche à l'écran en 10,8 cm X 7,5 cm en 100%

- En insérant (par macro et manuellement) elle fait 14,4 cm X 9,6 cm à l'écran

Comment expliquer ces différences ? et surtout comment ne pas perdre en qualité en insérant par macro

Merci

[patmeziere]

Bonjour
c'est le renderer(la plaque de rendu)de chaque application citée qui est différent c'est tout
l'essentiel c'est que tu ai le bon ratio qui a la redimensionner dans excel
en l’occurrence ton coeff arrondie de ton ratio est de 1,46
autrement dit ton image doit faire de largeur 1,46 fois sa hauteur


et il faut bien comprendre que excel a sa propre échelle d'affichage

alors attention ce qu'il faut savoir !!
c'est que la methode picture.insertpicture comme l'insertion a la main par le bouton dans le ruban insert l'image dans une dimension diminué a un ration de 800X600(ancien resolution de nos bon vuex ecran cathodique

pour insérer une image dans une feuille avec ses dimensions réelles il faut passer par la collection shapes.addpicture(x,x,x,x,)

démonstration
j'ajoute l'image a ses dimensions réelles shapes.addpicture et ensuite par pictureinsert dimension re proportionnée 800/600 *ratio
pour commencer un petit code calcul

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
Sub test()
    CmToPoint = Application.CentimetersToPoints(1)
    l = Round(15.5 * CmToPoint)
    h = Round(10.6 * CmToPoint)
    MsgBox "ton image devrait faire sur la feuille" & vbCrLf & _
            l & " points de large" & " X " & h & " points de haut " & vbCrLf & _
            "soit" & vbCrLf & _
            Round(l / 0.75) & " pixels de large X " & Round(h / 0.75) & " pixels de haut"
End Sub
 
 
Sub image()
    [A1].Select
    img = "H:\RE4wtc3.jpg" 'Adapter le chemin de l'image ici
    With ActiveSheet
        .Shapes.AddPicture img, False, True, 0, 0, -1, -1 'insertion a la taille réelle de l'image
 
        .Pictures.Insert (img) 'insertion a l'echelle 800x600 adapté au ratio de l'image
    End With
 
End Sub

on voit bien que j'ajoute 2 fois la même image mais que celle du dessus est plus petite
Bonne continuation