macro - CopyOrigin en Insertar en Excel VBA

vba excel pdf

Question

¿Alguien puede decirme para qué se utiliza el parámetro CopyOrigin de Insert? ¿Y qué valores aceptará?

He incluido la ayuda de vba (que no fue tan útil):

Inserta una celda o un rango de celdas en la hoja de trabajo o en la hoja de macros y desplaza otras celdas para hacer espacio.

expresión.Insertar (Shift, CopyOrigin) expresión Requerido. Una expresión que devuelve un objeto Range.

Cambiar variante opcional. Especifica de qué manera cambiar las celdas. Puede ser una de las siguientes constantes de dirección XlInsertShift: xlShiftToRight o xlShiftDown. Si se omite este argumento, Microsoft Excel decide en función de la forma del rango.

CopyOrigin Variante Opcional. El origen de la copia.

Answer 1

Agregando a los comentarios de Lakshmanaraj: selecciona la opción de formato dependiendo de dónde esté insertando las celdas y qué formato desea seleccionar.

Digamos que usted tiene:
primera fila que tiene texto en negrita,
La segunda fila tiene cosas en cursiva.
Seleccionas la segunda fila y ejecutas la siguiente expresión:

Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove

La nueva fila se inserta entre la 1ª y la 2ª fila y selecciona las reglas de formato de la "fila superior" o "celdas a la izquierda de la celda".

En este caso, las celdas recién insertadas tendrán el texto en negrita sin que usted lo configure explícitamente.

Answer 2

Puede referenciar aquí:

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())

Answer 3

Toma cualquiera de un parámetro como se indica a continuación.

Const xlFormatFromLeftOrAbove = 0

Member of Excel.XlInsertFormatOrigin

y...

Const xlFormatFromRightOrBelow = 1

Member of Excel.XlInsertFormatOrigin