VB.NET and EXCEL Paste Special Formatting only

[Billedd]

I am trying to copy some formatting from one range of cells and paste the formatting only to another range of cells and am having trouble. The last line is where I am having trouble.

TIA
Bill

Dim xl As Object
Dim orng As Object
Dim wrkbk As Object
Dim wrksht As Object

xl = CreateObject("Excel.Application")
xl.Visible = False
xl.DisplayAlerts = False
wrkbk = xl.Workbooks.Add
wrksht = wrkbk.ActiveSheet


wrksht.Range("A4").ReSize(2, 17).Copy 'copy formatting from A4:Q5
wrksht.Range("A6").ReSize(200, 17).PasteSpecial 'paste formats to A6:Q205

[.paul.]

The easiest way to work out syntax for excel, is to record a macro of yourself manually performing the same actions, then read the autogenerated VBA code...

[vbfbryce]

When doing it in Excel (VBA), the last line would look like this:

wrksht.Range("a6").Resize(200, 17).PasteSpecial xlPasteFormats

[Billedd]

When doing it in Excel (VBA), the last line would look like this:

wrksht.Range("a6").Resize(200, 17).PasteSpecial xlPasteFormats

Right, but I am doing this inside vb.net and I need the syntax for doing it there.

[vbfbryce]

Imports Microsoft.Office.Interop.Excel

...

wrksht.Range("A6").ReSize(200, 17).PasteSpecial(XlPasteType.xlPasteFormats)