CopiaOrigin su Insert in Excel VBA

Question

Qualcuno può dirmi per cosa viene usato il parametro CopyOrigin di Insert? E quali valori accetterà?

ho incluso l'aiuto di VBA (che non era poi così utile):

Inserisce una cella o un intervallo di celle nel foglio di lavoro o foglio di macro e turni di altre cellule via per fare spazio .

expression.Insert (Shift, CopyOrigin) espressione Richiesto. Un'espressione che restituisce un oggetto Range.

Variante Variante opzionale. Specifica quale modo per spostare le celle. Può essere una delle seguenti costanti XlInsertShiftDirection: xlShiftToRight o xlShiftDown. Se questo argomento viene omesso, Microsoft Excel decide in base alla forma dell'intervallo .

CopiaOrigin Variante opzionale. L'origine della copia .

Answer 1

Prende uno dei due parametri come indicato di seguito.

Const xlFormatFromLeftOrAbove = 0 

Member of Excel.XlInsertFormatOrigin 

e ...

Const xlFormatFromRightOrBelow = 1 

Member of Excel.XlInsertFormatOrigin 

Answer 2

aggiunta ai commenti di Lakshmanaraj - raccoglie l'opzione di formattazione a seconda di dove si sta inserendo cellule & quello di formattazione che si desidera scegliere.

Diciamo che avere:
prima fila che ha il testo in grassetto,
seconda fila ha cose in corsivo.
si seleziona la 2 ° fila & eseguire la seguente espressione:

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove 

La nuova riga viene inserita tra il 1 ° e 2 ° fila & raccoglie regole di formattazione della "riga sopra" o "celle a sinistra della cella ".

In questo caso, le celle appena inserite avranno il testo in grassetto senza che lo si imposti esplicitamente.

Answer 3

è possibile fare riferimento qui:

Imports Excel = Microsoft.Office.Interop.Excel 
Dim XLApp As New Excel.Application() 
Dim xWkBook As Excel.Workbook = XLApp.Workbooks.Open(YourInitialPath) 
Dim xSheet As Excel.Worksheet = CType(xWkBook.Sheets(1), Excel.Worksheet) 

CurCell = xSheet.Range("G9:G11") 
CurCell.Insert(Excel.XlInsertShiftDirection.xlShiftToRight, CurCell.Copy())