Discussion :

[Oh!Tofocus]

Je voudrais récupérer les coordonées de plusieurs photos positionnées sur une feuille EXEL

voici une ébauche de code qui ne marche pas !
mais bon c'est pour donner une idée de ce que je cherche

Code :

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

1
2
3
4
5
6
7
8
9
Dim photo As Object
Sub coordonees()
c = 1
'ici on passe  toutes les images en revue et affiche leur abscisse en colonne A
For Each photo In Shapes
Range("A" & c).Value = photo.Left
c = c + 1
Next
End Sub

l'erreur doit être grossière mais je ne la trouve pas tout seul dans mon coin

[Oh!Tofocus]

ça y est !!!!!
avec

Code :

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

For Each photo In ActiveSheet.Pictures

ça marche trés bien !

excusez moi d'encombrer le forum
mais cette remarque peut aider quelques programmeurs perdus comme moi

A+
et BRAVO a tous les participants de ce cite....

[Oh!Tofocus]

Mais un probleme m'interpelle !

j' ai 2 images de 256x256 pixels
si je les met cote a cote sur une feuille
avec la premiere calée a gauche
la macro me renvoie abcisse 192 pour l'image de droite.....

pouquoi c'est pas 256

[fring]

Et si tu fais

Code :

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

MsgBox ActiveSheet.Pictures("NomImageGauche").Width

ca donne quoi ?

[ucfoutu]

Mais un probleme m'interpelle !

j' ai 2 images de 256x256 pixels
si je les met cote a cote sur une feuille
avec la premiere calée a gauche
la macro me renvoie abcisse 192 pour l'image de droite.....

pouquoi c'est pas 256

Parce que l'échelle utilisée par Excel est en Points et non en Pixels ...
Et que 256 pixels font 192 points...
Vala !

Edit :
Et je peux te dire depuis où je me trouve que ton écran est configuré en 15 twips par pixel horizontalement

la preuve ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
  Dim testwipsh As Integer, pixelsparpoucex As Double, pointsparpoucex As Double
  testwipsh = 15 ' cà, ami, c'est TON écran à toi
  pixelsparpoucex = 1440 / testwipsh
  pointsparpoucex = 72
  k = pixelsparpoucex / pointsparpoucex
  MsgBox "voilà, sur TA machine, tes 256 pixels en points ===>>" & 256 / k
End Sub

Ah ! les joies de VBA ...

[Oh!Tofocus]

merci pour votre aide.

pour la reponse de find je trouve 192 ce qui parait logique

pour la reponse de ucfoutu j'apprécie la précision de la réponse.

Mais est-il possible de prévoir la valeur en point d'une image 256x256
c'est a dire pouvoir en VBA retrouver la valeur de testwipsh ( dans mon cas 15 comme ucfoutu l' a trés bien expliqué)
en effet je voudrais que ma macro s'adapte sur d'autres PC ( avec une autre configuration d'écran !

ma macro positionne des images de 256x256 pixels cote a cote

actuellement sur ma becane elles sont touts les 192 points ( mais je suppose que ce sera different sur un autre PC je le testerai bientôt )

help je ne danse pas trop bien le twips

[ucfoutu]

Bon...

Juste une idée car je n'ai pas mon portable de disponible (avec Excel) et ne peux vérifier ce qu'il retourne (en points ou en pixels ?) lorqu'on lui demande de nous dire quelles sont les dimensions de la fenêtre de l'application.
Application.width, je pense...

S'il la retourne en points, t'es sauvé car alors on utilisera une fonction de l'Api de Windows pour connaître la résolution de l'écran (en pixels, elle) et ... hop... on en déduira notre coefficient k par un simple calcul arithmétique ...

Fais celà pour moi ... dis-nous ce que te renvoit, par exemple, Application.width (si c'est bien Application .idth) et dis-nous quelle est la résolution de ton écran (que tu peux voir dans ta configuration). Cela me permettra de savoir si la valeur retournée est en points (auquel cas ce sera simple) ou en pixels.

A +