Cambio de fuente en un label

hola, (...) ?

disculpen pero estoy intentando encontrar/reproducir el mismo efecto-problema, pero no lologro, o sera que no entendi bien el asunto:
se supone que a partir de 127-128 la fuente ydeberia regresarse a la predeterminada (Tahoma) ¡¡??
pues a mi no me sucede tal cosa ya que cambio a 'Wingdings' o 'Webdings' y me respeta estos tipos de fuente
incluyendo el arial y times new roman, el codigo es practicamente el mismo:

el tema es que cuando a un control Label le modificas en tiempo de ejecucion la asigacion de la fuente...

1) al establecer un tipo de fuente que *debiera* mostrar SIMBOLOS [no los caracteres como los ves directamente en el teclado]
[segun las pruebas realizadas] NO muestra dichos *simbolos*

2) por ello fue la sugerencia de utilizar varias celdas con el mismo caracter para cada celda con *su tipo de fuente*:
__ siguen las *instrucciones* del mensaje anterior __

prepara una hoja *limpia* para modificarla durante la ejecucion del formulario +/- como sigue:
- [A1:E1] escribe los nombres de las fuentes que se *administran* por el formulaio [adjunto tambien]
-> Arial, Tahoma, Times New Roman, Wingdings y Webdings
- [A2] escribe un signo de interrogacion "?"
- [B2:E2] vincula cada celda a A1 con la formula: ¡
- [A2:E2] -> aplicale una fuente a cada celda segun la fuente indicada en la fila 1
-> servira para *ver* el caracter puesto en A1 con el tipo de fuente de cada titulo

3) el siguiente paso es que descargues e importes el archivo [formulario] y corras las pruebas de cambios de fuente -?-

saludos,
hector.

__ el codigo expuesto __
Private Sub btnAceptar_Click()
Unload UserForm2
End Sub
Private Sub cmbFuentes_Change()
'Label1.Font.Name = cmbFuentes.Value
Label1.Font = cmbFuentes.Value
Label2.Font = cmbFuentes.Value
Label3.Font = cmbFuentes.Value
Label3.Caption = cmbFuentes.Value
'Debug.Print cmbFuentes.Value
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Chr(ScrollBar1.Value)
Label2.Caption = ScrollBar1.Value
Label3.Caption = Label1.Font.Name
With cmbFuentes
.AddItem "Arial"
.AddItem "Times New Roman"
.AddItem "Wingdings"
.AddItem "Webdings"
End With
End Sub
Private Sub ScrollBar1_Change()
Label1.Caption = Chr(ScrollBar1.Value)
Label2.Caption = ScrollBar1.Value
Label3.Caption = Label1.Font.Name
'Debug.Print Chr(ScrollBar1.Value)
End Sub

On 3 oct, 17:09, "Héctor Miguel"
wrote:

hola, (...) ?

> disculpen pero estoy intentando encontrar/reproducir el mismo efecto-problema, pero no lologro, o sera que no entendi bien el asunto:
> se supone que a partir de 127-128 la fuente ydeberia regresarse a la predeterminada (Tahoma) ¡¡??
> pues a mi no me sucede tal cosa ya que cambio a 'Wingdings' o 'Webdings' y me respeta estos tipos de fuente
> incluyendo el arial y times new roman, el codigo es practicamente el mismo:

el tema es que cuando a un control Label le modificas en tiempo de ejecucion la asigacion de la fuente...

1) al establecer un tipo de fuente que *debiera* mostrar SIMBOLOS [no los caracteres como los ves directamente en el teclado]
[segun las pruebas realizadas] NO muestra dichos *simbolos*

2) por ello fue la sugerencia de utilizar varias celdas con el mismo caracter para cada celda con *su tipo de fuente*:
__ siguen las *instrucciones* del mensaje anterior __

> prepara una hoja *limpia* para modificarla durante la ejecucion del formulario +/- como sigue:
> - [A1:E1] escribe los nombres de las fuentes que se *administran* por el formulaio [adjunto tambien]
> -> Arial, Tahoma, Times New Roman, Wingdings y Webdings
> - [A2] escribe un signo de interrogacion "?"
> - [B2:E2] vincula cada celda a A1 con la formula: ¡
> - [A2:E2] -> aplicale una fuente a cada celda segun la fuente indicada en la fila 1
> -> servira para *ver* el caracter puesto en A1 con el tipo de fuente de cada titulo

3) el siguiente paso es que descargues e importes el archivo [formulario] y corras las pruebas de cambios de fuente -?-

saludos,
hector.

__ el codigo expuesto __
Private Sub btnAceptar_Click()
Unload UserForm2
End Sub
Private Sub cmbFuentes_Change()
'Label1.Font.Name = cmbFuentes.Value
Label1.Font = cmbFuentes.Value
Label2.Font = cmbFuentes.Value
Label3.Font = cmbFuentes.Value
Label3.Caption = cmbFuentes.Value
'Debug.Print cmbFuentes.Value
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Chr(ScrollBar1.Value)
Label2.Caption = ScrollBar1.Value
Label3.Caption = Label1.Font.Name
With cmbFuentes
.AddItem "Arial"
.AddItem "Times New Roman"
.AddItem "Wingdings"
.AddItem "Webdings"
End With
End Sub
Private Sub ScrollBar1_Change()
Label1.Caption = Chr(ScrollBar1.Value)
Label2.Caption = ScrollBar1.Value
Label3.Caption = Label1.Font.Name
'Debug.Print Chr(ScrollBar1.Value)
End Sub

hola chicos:
dada la explicacion de HMiguel ,puede apreciar el efecto (una vez
pasado el caracter 127 ,al regresar el scroll ya no muestra el
caracter adecuado) ->[gracias por cierto:-)],tambien *jugueteando con
el control scrollbar y el combo,puede apreciiar que si haces esto:(por
supuesto una vez mostrado el efecto en cuestion),los caracteres se
muestran nuevamente !!!!!
1.-elijan la fuente arial (funcionarà tambien con times new roman)
2.-retrocedan 1,es decir al caracter 127
3.-apliquen la fuente "Windings"
4.-retrocedan 1,es decir al caracter 126
5.-ahora retrocedan con el scroll y vean el resultado en el resto
listo !!!!! ,el problema es que al llegar nuevamente al caracter 128
volvera a pasar lo mismo :-((

Salu2.Al.