VBA/Excel : Taille de la police et d'une zone de texte

VBA/Excel : Taille de la police et d'une zone de texte - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2006 à 11:27:51    

Bonjour,
 
J'ai trouvé ca sur le net pour afficher une fenêtre "Patientez" pendant l'execution d'une macro.
 
Le problème, c'est que le texte est écrit tout petit dans une fenêtre toute petite.
 
Comment définir une fenêtre plus grande et centrée à l'écran (genre 5cm * 10cm)
Et comment définir une taille de police plus grosse.
 

Code :
  1. ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100).Select
  2. With Selection
  3. .Characters.Text = "Patientez !"
  4. .AutoSize = True
  5. .ShapeRange.Fill.ForeColor.SchemeColor = 13
  6. .Name = "wait"
  7. End With
  8. Call ma_macro(variable_1, variable_2)
  9. ActiveSheet.Shapes("wait" ).Delete


 
D'avance merci

Reply

Marsh Posté le 27-06-2006 à 11:27:51   

Reply

Marsh Posté le 27-06-2006 à 11:30:12    

mets l'autosize à false, déjà ^^

Reply

Marsh Posté le 27-06-2006 à 11:33:01    

ok, c'est un début
 
reste à centrer la fenetre et modifier la taille de la police

Reply

Marsh Posté le 27-06-2006 à 11:36:55    

itoine a écrit :

ok, c'est un début
 
reste à centrer la fenetre et modifier la taille de la police


cf aide:

Code :
  1. expression.AddTextbox(Orientation, Left, Top, Width, Height)
  2. expression      Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
  3. Orientation     Argument de type MsoTextOrientation obligatoire. Orientation de la zone de texte.
  4. Left     Argument de type Single obligatoire. Position (en points) du coin supérieur gauche de la zone de texte par rapport au coin supérieur gauche du document.
  5. Top  Argument de type Single obligatoire. Position (en points) du coin supérieur gauche de la zone de texte par rapport au sommet du document.
  6. Width      Argument de type Single obligatoire. Largeur de la zone de texte, en points.
  7. Height      Argument de type Single obligatoire. Hauteur de la zone de texte, en points.

Reply

Marsh Posté le 27-06-2006 à 11:38:47    

non ca ca m'aide pas
 
definir la position de la fenetre en "nombre de points" c'est pas bon
ca depend de la resolution du poste.

Reply

Marsh Posté le 27-06-2006 à 11:40:35    

Pour la taiile du text ajoute
   .Characters.Font.Size = <la taille que tu veux>

Reply

Marsh Posté le 27-06-2006 à 11:42:54    

un userform à la place ? la tu peux le mettre au milieu =)

Reply

Marsh Posté le 27-06-2006 à 11:45:02    

ok merci :)
 
reste à centrer la fenetre sur l'ecran
et si possible centrer le texte sur la fenetre

Reply

Marsh Posté le 27-06-2006 à 11:51:50    

Reply

Marsh Posté le 27-06-2006 à 13:42:38    

ok merci
c'est ce que je venais de faire par moi meme pour detourner le probleme
^^

Reply

Marsh Posté le 27-06-2006 à 13:42:38   

Reply

Marsh Posté le 27-06-2006 à 15:22:26    

bonjour,
on peut aller plus loin :

Code :
  1. Sub test()
  2. iW = 200
  3. iH = 150
  4. iL = (Application.UsableWidth - iW) / 2
  5. iT = (Application.UsableHeight - iH) / 2
  6. ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, iL, iT, iW, iH).Select
  7. With Selection
  8. .Characters.Text = "Patientez !"
  9. .Characters.Font.Size = 16
  10. .HorizontalAlignment = xlCenter
  11. .VerticalAlignment = xlCenter
  12. .ShapeRange.Fill.ForeColor.SchemeColor = 13
  13. .Name = "wait"
  14. End With
  15. MsgBox "Ok ?"
  16. ActiveSheet.Shapes("wait" ).Delete
  17. End Sub


A+

Reply

Marsh Posté le 28-06-2006 à 14:20:11    

Galopin01 bjr peux tu venir me donner un coup de main ici ===>http://forum.hardware.fr/hardwarefr/Programmation/VBS-Une-erreur-sujet-92976-1.htm merci ;)

Reply

Marsh Posté le 28-06-2006 à 18:53:02    

sorry, mais le VBS c'est pas mon trip !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed