none
Celda excel string de con 2 fuentes RRS feed

  • Pregunta

  • Hola espero esten bien.

    Una consulta:

    Como debería hacer para cambiar en parte el tamaño de fuente de un string que inserto dentro de una celda excel. Pongo el código de hasta donde llegué para tratar de ser mas claro.

    Espero me puedan ayudar.

    Function DGVAExcelEtiquetas(ByVal ElGrid As DataGridView) As Boolean
            Dim exApp As New Microsoft.Office.Interop.Excel.Application
            Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
            Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet
            Try
                exLibro = exApp.Workbooks.Add
                exHoja = exLibro.Worksheets.Add()
                Dim NCol As Integer = ElGrid.ColumnCount
                Dim NRow As Integer = ElGrid.RowCount
                For Fila As Integer = 0 To NRow - 1
                    For Col As Integer = 0 To NCol - 1
                        exHoja.Cells.Item(Fila + 2, 1) = "Articulo1" & vbNewLine & "1 lts"
                        With exHoja.Range("A" & Val(Fila + 1).ToString)
                            .ColumnWidth = 27   'Cambia el ancho de columna 
                            .RowHeight = 40.75  'Cambia el alto de celda 
                            .Font.Bold = True   'Pone negritas al font 
                            .Font.Italic = True 'Pone italica al font 
                            .Style = "Currency" 'Pone el formato de la celda en moneda 
                         End With
                    Next
                Next
                exHoja.Rows.Item(1).Font.Bold = 1
                exHoja.Rows.Item(1).HorizontalAlignment = 3
                exHoja.Columns.AutoFit()
                'exHoja.Columns(0).Width = 100
                exApp.Application.Visible = True
                exHoja = Nothing
                exLibro = Nothing
                exApp = Nothing
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
                Return False
            End Try
            Return True
        End Function

    Con esto puedo manejar todo el texto de la celda, pero quisiera partir el string y darle un tamaño diferente a cada parte.

    Por ejemplo:

    ----------------------------------

    |              Articulo1             | ---> Donde "Articulo1" es font 14

    |                 1 lts                 | ---> Donde "1 lts" es font 24

    ---------------------------------------------

    Desde ya muchas gracias

    • Cambiado Enrique M. Montejo martes, 23 de enero de 2018 12:48 Programación con Microsoft Excel.
    lunes, 22 de enero de 2018 16:24

Todas las respuestas