maval
XLDnaute Barbatruc
Bonjour,
J'ai USF pour entrer un nom dans une Shape a partir d'un InputBox
Est-il possible de changer de police ou de changer de taille ect... ou comment ajouter une textbox?
D'avance merci à qui pourra m'aider.
Cordialement
Maval
J'ai USF pour entrer un nom dans une Shape a partir d'un InputBox
Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub SpinButton1_Change()
Var = Me.SpinButton1.Min
Selection.ShapeRange.TextFrame.MarginTop = Me.SpinButton1.Value
End Sub
Private Sub SpinButton3_Change()
Selection.ShapeRange.TextFrame.MarginLeft = Me.SpinButton3.Value
End Sub
Private Sub SpinButton4_Change()
Selection.ShapeRange.TextFrame.MarginRight = Me.SpinButton4.Value
End Sub
Private Sub SpinButton5_Change()
Selection.ShapeRange.TextFrame.MarginBottom = Me.SpinButton5.Value
End Sub
Private Sub UserForm_Activate()
With Selection
Set Var = Selection
.Text = InputBox("Entrez le texte")
Me.SpinButton1.Min = 0
Me.SpinButton1.Max = Selection.Height * 2
Me.SpinButton1.Value = .ShapeRange.TextFrame.MarginTop
Me.SpinButton5.Min = 0
Me.SpinButton5.Max = Selection.Height * 2
Me.SpinButton5.Value = .ShapeRange.TextFrame.MarginBottom
Me.SpinButton3.Min = 0
Me.SpinButton3.Max = Selection.Width * 2
Me.SpinButton3.Value = .ShapeRange.TextFrame.MarginLeft
Me.SpinButton4.Min = 0
Me.SpinButton4.Max = Selection.Width * 2
Me.SpinButton4.Value = .ShapeRange.TextFrame.MarginRight
End With
End Sub
Est-il possible de changer de police ou de changer de taille ect... ou comment ajouter une textbox?
D'avance merci à qui pourra m'aider.
Cordialement
Maval
Dernière édition: