Al programar en VB, ¿cómo puedo hacer que el cuadro de texto tenga líneas de cuadrícula, como en Excel?
Subcomando privado2_Click()
Atenuar xlApp como Excel.Aplicación
Atenuar xlBook como Excel.Workbook
Atenuar xlSheet como Excel. Hoja de trabajo
Dim FileName, SheetName As String
FileName = "c:\11.xls"
SheetName = "sheet1"
Set xlApp = CreateObject("Excel.Application") 'Crea un objeto EXCEL
Set xlBook = xlApp.Workbooks.Open(FileName) 'Abre un archivo de libro EXCEL existente
xlApp . Visible = False 'Establecer el objeto EXCEL visible (o invisible)
Set xlSheet = xlBook.Worksheets(SheetName) 'Establecer la hoja de trabajo activa
xlSheet.Shapes("textbox1") . DrawingObject.object.Text = "Establecer el contenido del cuadro de texto en el panel de herramientas de control"
xlSheet.Shapes("TextBox 3").TextFrame.Characters.Text = "Establecer el contenido del cuadro de texto en la barra de herramientas de dibujo"
Sheets(SheetName).textbox1.Text = "Establecer el contenido del cuadro de texto en el panel de herramientas de control" 'Asigna un valor al texto, no puedes usar directamente xlsheet.textbox1.text
xlApp.DisplayAlerts = False
xlBook.Save
xlBook.Close (True) 'Cerrar el libro
xlApp.Quit 'Finalizar EXCEL object
Set xlApp = Nothing 'Liberar el objeto xlApp
End Sub