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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA/Excel : Taille de la police et d'une zone de texte

itoine

To Infinity And Beyond

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 :

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100).Select
With Selection
.Characters.Text = "Patientez !"
.AutoSize = True
.ShapeRange.Fill.ForeColor.SchemeColor = 13
.Name = "wait"
End With
Call ma_macro(variable_1, variable_2)
ActiveSheet.Shapes("wait" ).Delete

D'avance merci

Publicité

jpcheck

Pioupiou

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

itoine

To Infinity And Beyond

ok, c'est un début

reste à centrer la fenetre et modifier la taille de la police

Message cité 1 fois

jpcheck

Pioupiou

itoine a écrit :

ok, c'est un début

reste à centrer la fenetre et modifier la taille de la police

cf aide:

Code :

expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
Orientation Argument de type MsoTextOrientation obligatoire. Orientation de la zone de texte.
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.
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.
Width Argument de type Single obligatoire. Largeur de la zone de texte, en points.
Height Argument de type Single obligatoire. Hauteur de la zone de texte, en points.

itoine

To Infinity And Beyond

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.

Paul Hood

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

jpcheck

Pioupiou

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

itoine

To Infinity And Beyond

ok merci

reste à centrer la fenetre sur l'ecran
et si possible centrer le texte sur la fenetre

jpcheck

Pioupiou

http://forum.hardware.fr/hardwaref [...] 4430-1.htm

itoine

To Infinity And Beyond

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

Publicité

galopin01

bonjour,
on peut aller plus loin :

Code :

Sub test()
iW = 200
iH = 150
iL = (Application.UsableWidth - iW) / 2
iT = (Application.UsableHeight - iH) / 2
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, iL, iT, iW, iH).Select
With Selection
.Characters.Text = "Patientez !"
.Characters.Font.Size = 16
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ShapeRange.Fill.ForeColor.SchemeColor = 13
.Name = "wait"
End With
MsgBox "Ok ?"
ActiveSheet.Shapes("wait" ).Delete
End Sub

A+

naindjardin45

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

galopin01

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
zone de download	Transformer du texte en integer
[VBA] conversion ASCII en nombre	Import / Export Excel sous Access
[VB/VBA/VBS] Espace et quote dans une macro	Code pour remplacer du texte par un autre.
Trouver tous les tableaux de mon document et les convertir en texte	Code pour remplacer du texte par un autre.
[VBA ACCESS] appli en reseau	Problème avec Excel
Plus de sujets relatifs à : VBA/Excel : Taille de la police et d'une zone de texte

Page générée en 0.057 secondes