[MAC] Connaître la taille d'affichage

[JeanMarie]

Public Sub TailleEcran()
  Select Case Application.DefaultWebOptions.ScreenSize
  Case msoScreenSize1024x768
     MsgBox "Taille écran de 1024*768"
  Case msoScreenSize1152x882
     MsgBox "Taille écran de 1152*882"
  Case msoScreenSize1152x900
     MsgBox "Taille écran de 1152*900"
  Case msoScreenSize1280x1024
     MsgBox "Taille écran de 1280*1024"
  Case msoScreenSize1600x1200
     MsgBox "Taille écran de 1600*1200"
  Case msoScreenSize1800x1440
     MsgBox "Taille écran de 1800*1440"
  Case msoScreenSize1920x1200
     MsgBox "Taille écran de 1920*1200"
  Case msoScreenSize544x376
     MsgBox "Taille écran de 544*376"
  Case msoScreenSize640x480
     MsgBox "Taille écran de 640*480"
  Case msoScreenSize720x512
     MsgBox "Taille écran de 720*512"
  Case msoScreenSize800x600
     MsgBox "Taille écran de 800*600"
  Case Else
     MsgBox "la Taille écran d'affichage n'est pas référencée"
  End Select
  End Sub