Celda excel string de con 2 fuentes

Question

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

Answer 1

hola ya probaste con Font.Name ??

luego concatenar articulo con 1 con sus respectivos size de cada celda