Red de conocimiento informático - Material del sitio web - Al programar en VB, ¿cómo puedo hacer que el cuadro de texto tenga líneas de cuadrícula, como en Excel?

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