XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2 · 21 Septembre 2023

Bonjour,

Pour un XLDNaute du Canada j'ai développé un code sous Windows.
Je vire tout ce qui est API Windows. Et tous les caractères accentués.

1 - Cependant comment fait-on en MAC pour trouver le ratio Point / Pixel ?
2 - Y a-t-il une fonction Sleep(milliseconds) ?

Merci par avance

Dudu2 · 27 Septembre 2023

En fait il faudrait que je trouve le moyen de calculer automatiquement PtToPx

Est-ce que cette instruction donne un résultat ?
MacPoints = (TypesettersPoints/72)*ResolutionInDotsPerInch

Point to pixel conversion

On Mac OS X, I need to convert a point measurement to pixel measurement. The formula which I know is pixel = point * resolution (in terms of dpi) / 72 I have few measurements which I want to c...

stackoverflow.com

Staple1600 · 27 Septembre 2023

Re

@Dudu2
Vos differences de calcul entre Mac et Windows ne sont pas du à ce qui est expliqué dans le site que je cite dans mon précédent message ?

Dudu2 · 27 Septembre 2023

Est-ce que tu as essayé le fichier du Post #69 ?

Dudu2 · 27 Septembre 2023

@Staple1600 ,
Cette discussion fait plus de 30 posts et je ne sais pas où se trouve l'information utile.
C'est différent, certes, mais qu'en conclure pour positionner un UserForm ?

Staple1600 · 27 Septembre 2023

Re

@Dudu2
Dans le lien que je cite, on peut lire

macOS and Windows handle screen resolution differently because they use different technologies to display images on the screen.macOS uses the Quartz imaging model, which is based on the PDF (Portable Document Format) standard developed by Adobe. This model uses a fixed resolution for the display and then scales the images to fit the screen. This results in a consistent and sharp image, but it may not be as detailed as the image on Windows.Windows, on the other hand, uses the GDI (Graphics Device Interface) and DirectDraw technologies, which are based on the display's native resolution. This means that the images are displayed at the same resolution as the screen, resulting in a more detailed image. However, this can lead to inconsistencies in the way images are displayed on different screens.Overall, both macOS and Windows have their own strengths and weaknesses when it comes to handling screen resolution. It ultimately comes down to personal preference and the specific needs of the user.

Donc lisant ceci, je me suis dit, que c'est peut-être cela qui explique que RyuAutodidacte (sur Mac) et toi sur PC, vous n'obtenez pas les mêmes résultats

Dudu2 · 27 Septembre 2023

J'aimerais bien avoir un MAC pour voir le résultat de mon code qui fonctionne sur tous les PC (et ça j'en suis sûr à 100%) et corriger en fonction des observations d'affichage sur MAC. Mais ce n'est pas le cas donc je verrai demain les réponses de @RyuAutodidacte.

Dudu2 · 27 Septembre 2023

Sinon, voici un moyen de calculer un PixelToPoint assez précis, même si MAC n'utilise pas la notion de Pixel, il semble qu'il y a les fonctions Excel PointsToScreenPixelsX/Y donc...

VB:

'-----------------------
'Points to Pixels approx
'-----------------------
Function PointsToPixels(Optional Points As Double = 1) As Double
    Dim ZoomRatio As Single
    Dim PointToPixel As Double
   
    With ActiveWindow.ActivePane
        ZoomRatio = .Parent.Zoom / 100
        PointToPixel = ((.PointsToScreenPixelsX(1000) - .PointsToScreenPixelsX(0)) / 1000) / ZoomRatio
    End With
   
    PointsToPixels = Points * PointToPixel
End Function

'-----------------------
'Pixels to Points approx
'-----------------------
Function PixelsToPoints(Optional Pixels As Double = 1) As Double
    PixelsToPoints = Pixels / PointsToPixels
End Function

RyuAutodidacte · 27 Septembre 2023

Staple1600 à dit:
Re

@Dudu2
Dans le lien que je cite, on peut lire

Donc lisant ceci, je me suis dit, que c'est peut-être cela qui explique que RyuAutodidacte (sur Mac) et toi sur PC, vous n'obtenez pas les mêmes résultats

Hello @Staple1600
Ce que je ne comprends pas c'est qu'avec le même code j'ai eu un résultat identique sur PC et MAC avec un 14" lenevo (seul ou avec un 2ème écran) et un MacBook Pro 14"(seul ou avec un 2ème écran) et un Imac 27"
... .... ... ????

RyuAutodidacte · 27 Septembre 2023

Dudu2 à dit:
J'aimerais bien avoir un MAC pour voir le résultat de mon code qui fonctionne sur tous les PC (et ça j'en suis sûr à 100%) et corriger en fonction des observations d'affichage sur MAC. Mais ce n'est pas le cas donc je verrai demain les réponses de @RyuAutodidacte.

Il faut que je reboot sur Mac OS X, là je suis sur partition Windows (installation native via Bootcamp)

Staple1600 · 27 Septembre 2023

Re

@RyuAutodidacte
Je suis parti du message#66 où vos échanges semblaient indiquer des différences
Donc j'ai fait des recherches sur le net
et j'ai posté le lien en espérant que cela apporte un éclairage ou soit utile

RyuAutodidacte · 27 Septembre 2023

Dudu2 à dit:
Essaie voir ça sur MAC ?

100 % :

140% :

RyuAutodidacte · 27 Septembre 2023

J'ai regardé la résolution indiqué par le sytème windows et j'ai mutiplié par 0.35
5120 * 0,35 = 1792
2880 * 0,35 = 987
Ca te parle ces résultat ?? (il me semble mais j'en suis pas sur que c'était une résolution d'écran PC… ?)

RyuAutodidacte · 27 Septembre 2023

@Dudu2
Stp
tu pourrais me dire ce que tu obtiens chez toi qd tu fais :

VB:

Debug.Print 1080 / Application.UsableHeight
Debug.Print 1920 /Application.UsableWidth

??

Dudu2 · 27 Septembre 2023

5120 * 0,35 = 1792
2880 * 0,35 = 987

Ça me dit rien, ni le ratio de 1.81.

Plein écran:

Partiellement réduit:

Dudu2 · 27 Septembre 2023

Test sur MAC: Évidemment avec le ratio 0.75 qui est à l'envers !

Je t'envoie ce fichier qui permet de saisir le ratio Pixel To Point: essayer 1 (je pense que ça devrait le faire) puis 1.33 (je pense que c'est trop) et autres sinon.

XL 2016 Cherche possesseur de MAC connaissant VBA

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Point to pixel conversion

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Discussions similaires