Saludos y gracias de antemano.
Tengo un problema: Cuando intento insertar un cuadro de texto, en
Excel, cuyo contenido es mayor de 255 caracteres, me inserta un cuadro
en blanco, si inserto menos cantidad si que se genera bien, y si lo
hago a pelo en la propia hoja de cálculo si que me deja insertar mas
de esos 255 caracteres.
¿Alguién sabe como poder insertar mas de 255 caracteres en el cuadro
de texto? Este es el código que utilizo:
Dim MiHoja As Excel.Worksheet
Dim Texto As String
Dim NombreMes As String
Dim T1, T2, T3, T4, T5, T6, T7, T8, T9, TA, TB As String
NombreMes = "DEMANDAS OCR: " & UCase(MonthName(Month(Date) - 1)) & " "
& Year(Now) & Chr(10)
T1 = "TOTALES: " & Format(TotEs, "#,##0") & Chr(10)
T2 = "RECO: " & Format(TotSi, "#,##0") & Chr(10)
T3 = "N.RECO: " & Format(TotNo, "#,##0") & Chr(10)
T4 = "AZ(+): " & Format(TotAzS, "#,##0") & Chr(10)
T5 = "AZ(-): " & Format(TotAzN, "#,##0") & Chr(10)
T6 = "AG(+): " & Format(TotAgS, "#,##0") & Chr(10)
T7 = "AG(-): " & Format(TotAgN, "#,##0") & Chr(10)
T8 = "AI(+): " & Format(TotAiS, "#,##0") & Chr(10)
T9 = "AI(-): " & Format(TotAiN, "#,##0") & Chr(10)
TA = "DA(+): " & Format(TotDaS, "#,##0") & Chr(10)
TB = "DA(-): " & Format(TotDaN, "#,##0") & Chr(10)
Texto = NombreMes & T1 & T2 & T3 & T4 & T5 & T6 & T7 & T8 & T9 & TA &
TB '& " "
Set MiHoja = Worksheets("TOTALMES")
MiHoja.Shapes.AddTextbox(1, 0, 37, 266, 247).Select
With Selection
.Characters.Text = Texto
.Characters.Font.Name = "Courier New"
.Characters.Font.Size = 14
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.Orientation = xlHorizontal
End With
etc...
Muchas gracias y un saludo
Luis V.
Leer las respuestas