Программное изменение размера части текста в Excel - Visual Basic .NET

Формулировка задачи:

Есть некий макет в excel, в нем есть таблица, в таблице записи, как уменьшить размер текста в таблице оставив остальной текст без изменений? Сделать это в самом макете не могу на уровне excel, так как неизвестно в каком месте макета будет выведена данная информация, нужно именно программно прописать, помогите пожалуйста.

                    Листинг программы
                
 
                            
                        
'отрисовка таблицы
                .Range("C9:E9").Borders.LineStyle = True
                .Range("A10").Borders.LineStyle = True
                .Range("B10").Borders.LineStyle = True
                .Range("C10").Borders.LineStyle = True
                .Range("D10").Borders.LineStyle = True
                .Range("E10").Borders.LineStyle = True
                .Range("F10").Borders.LineStyle = True
                .Range("G10").Borders.LineStyle = True
                .Range("H10").Borders.LineStyle = True
                .Range("A11:A12").Borders.LineStyle = True
                .Range("B11:B12").Borders.LineStyle = True
                .Range("C11:C12").Borders.LineStyle = True
                .Range("D11:D12").Borders.LineStyle = True
                .Range("E11:E12").Borders.LineStyle = True
                .Range("F11:F12").Borders.LineStyle = True
                .Range("G11:G12").Borders.LineStyle = True
                .Range("A13:A14").Borders.LineStyle = True
                .Range("B13:B14").Borders.LineStyle = True
                .Range("C13:C14").Borders.LineStyle = True
                .Range("D13:D14").Borders.LineStyle = True
                .Range("E13:E14").Borders.LineStyle = True
                .Range("F13:F14").Borders.LineStyle = True
                .Range("G13:G14").Borders.LineStyle = True
                For Each n% In {1, 8, 9, 10}
                    .Range("H11:H14").Borders(n).LineStyle = 1 'xlContinuous
                Next
                'отрисовка текста в макете
                appExcel.CELLS(1 + i * 17, 1) = "п/о"
                appExcel.CELLS(1 + i * 17, 3) = TextBox2.Text
                appExcel.CELLS(2 + i * 17, 3) = "XXX''"
                appExcel.CELLS(2 + i * 17, 12) = "Каб 92"
                appExcel.CELLS(3 + i * 17, 3) = "АНАЛИЗ КРОВИ №_____ + ЭДС"
                appExcel.CELLS(3 + i * 17, 12) = "III этаж"
                appExcel.CELLS(5 + i * 17, 1) = TextBox1.Text
                appExcel.CELLS(6 + i * 17, 1) = "В учреждение_______________________________________________________"
                appExcel.CELLS(7 + i * 17, 1) = "Корпус. отд_________________________________________________________"
                appExcel.CELLS(9 + i * 17, 3) = "              Толстая капля"
                appExcel.CELLS(10 + i * 17, 1) = "Эритроц."
                appExcel.CELLS(10 + i * 17, 2) = "Гемогл."
                appExcel.CELLS(10 + i * 17, 3) = "Цв. Пок."
                appExcel.CELLS(10 + i * 17, 4) = "Полихр."
                appExcel.CELLS(10 + i * 17, 5) = "Базоф."
                appExcel.CELLS(10 + i * 17, 6) = "Ретикул."
                appExcel.CELLS(10 + i * 17, 7) = "Тромбоц."
                appExcel.CELLS(10 + i * 17, 8) = "Параз."
                appExcel.CELLS(11 + i * 17, 1) = "в 1 куб. мм"
                appExcel.CELLS(11 + i * 17, 2) = "80-100"
                appExcel.CELLS(11 + i * 17, 3) = "0.8-1.0"
                appExcel.CELLS(11 + i * 17, 4) = "+"
                appExcel.CELLS(11 + i * 17, 5) = "-"
                appExcel.CELLS(11 + i * 17, 6) = "0.6-0.8"
                appExcel.CELLS(11 + i * 17, 7) = "250-400"
                appExcel.CELLS(12 + i * 17, 1) = "4 1/2 - 5мм"
                appExcel.CELLS(12 + i * 17, 7) = "тысяч"
                appExcel.CELLS(17 + i * 17, 7) = "каб 29"

Решение задачи: «Программное изменение размера части текста в Excel»

textual
                            Листинг программы 
                        
appExcel.CELLS(1 + i * 17, 1).Font.Size = 8