Discussion :

[retraite83]

Bonjour,

j'ai une boucle trè simple pour récupérer la hauteur et la largeur d'une image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If Sh.TopLeftCell.Address = "$E$13" Then
        With Selection
             Himg = .Height   ' hauteur
             Limg = .Width  ' largeur
        End With
    Else
    End If

Je voudrai tout simplement récupérer en même temps la résolution de cette image

A part des usines à gaz je ne vois pas de solution simple sur internet

Merci

[Franc]

Bonjour, il me semble que VBA ne possède pas de méthode native pour extraire cette information, je pense qu'il faut passer par des API.

[patmeziere]

Bonjour
c'est même pire que ça!!!!
on ne peut pas récupérer les vraies dimensions d'une images dans une feuille (s si elle a été insérée avec shapes.AddPicture
si elle a été insérée avec pictures.insert c'est mort

tout simplement parce que l'image est un bitmap du fichier image

alors pour info
ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set myPicture = ActiveSheet.Pictures.Insert("path du fichier image")

insert l'image sur la base du ratio 800X600 X le ratio des écrans actuels en gardant bien évidemment l’aspect ratio de l'image

mais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set mypicture= activesheet.Shapes.AddPicture ( "path du fichier image",    True, True, 0, 0, -1, -1)

insert l'image aux dimensions réelles (qui te suffira de convertir en pixel pour connaitre ses dimensions)

reste a savoir comment tu les a inséré et si tu ne les a pas pas modifié sur la feuille

[retraite83]

Bonjour

j'insère de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For Each Sh In log.Shapes
    If Sh.Type = msoAutoShape Then  ' Elimine les boutons
    Else
        With Selection
            Selection.Copy
        End With
        Exit For
    End If
Next Sh
 
cart.Activate
log.Paste Destination:=cart.Range("B1")

[patmeziere]

bonjour là tu m'a perdu
ca na pas de sens
tu demande de récupérer la dimension d'image , je te demande comment tu les a inséré et toi tu me réponds par la copie d'object
et pour info copy copie les object , il ne les transforme pas en image
c'est copypicture qui copie en image

[retraite83]

Bonjour,

ce n'est pas les dimensions que je souhaite récupérer (pour cela pas de problème) mais la résolution

Quand à mes copies d'images je fais toujours comme indiqué dans mon code sans problème

[patmeziere]

bonjour
tu es têtu moi aussi
je te dis que copy copie l'object et pas en image
tu a parlé de Autoshape qui sont des object de classe "Shape"
donc si tu copie une image et que tu la colle sur une autre feuille tu aura un image
si tu copie une shape et que tu la colle sur une autre feuille tu aura une shape

pour le reste de ta question plus ça va moins on comprend ton besoins
si tu parle de la résolution "PP" c'est mort tu peux oublier
la résolution tu l'aura sur le fichier image physique avec le shell.namespace .getdetailof si tu sauve chaque shape ou picture en fichier image
mais pour sauver en image faut il encore avoir fait un copypicture et non un copy tout court
avant elle n 'ont pas de résolution
après ça si tu ne comprends pas ce que je dis je ne peux plus rien pour toi