在Excel VBA中插入时的CopyOrigin
在Excel VBA中插入时的CopyOrigin
提问于 2009-03-26 04:34:34
谁能告诉我Insert的CopyOrigin参数是用来做什么的？它会接受什么价值观？
我已经包含了vba帮助(实际上帮助不是很大)：
将一个单元格或一组单元格插入工作表或宏表中，并将其他单元格移开以留出空间。
需要expression.Insert(Shift，CopyOrigin)表达式。返回Range对象的表达式。
Shift可选变量。指定移动单元格的方式。可以是以下XlInsertShiftDirection常量之一: xlShiftToRight或xlShiftDown。如果省略此参数，Microsoft Excel将根据范围的形状进行决定。
CopyOrigin可选变量。复制原点。
回答 3
Stack Overflow用户
回答已采纳
发布于 2009-03-26 04:43:26
它接受一个参数，如下所示。
Const xlFormatFromLeftOrAbove = 0
Member of Excel.XlInsertFormatOrigin还有..。
Const xlFormatFromRightOrBelow = 1
Member of Excel.XlInsertFormatOriginStack Overflow用户
发布于 2009-03-26 06:25:34
添加到Lakshmanaraj的注释中-它会根据您插入单元格的位置和您希望选择的格式来选择格式选项。
假设你有：
第一行具有粗体文本，
第二行有斜体的东西。
选择第二行并执行以下表达式：
Selection.Insert CopyOrigin:=xlFormatFromLeftOrAbove新行插入在第一行和第二行之间&它从“上面的行”或“单元格左侧的单元格”中选取格式规则。
在这种情况下，新插入的单元格的文本将以粗体显示，而无需您显式设置。
Stack Overflow用户
发布于 2011-04-18 12:49:06
你可以在这里参考：
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())页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/684531
复制相关文章
相似问题