arange函数用法，调整范围并插入EXCEL单元格和图表-专属定制-芸言礼

对一些调整范围并插入EXCEL单元格和图表和arange函数用法相关的题，你究竟了解多少呢？下面来让小编带大家来了解一下吧！

【分享成果，正能量欢喜】不要太沉浸在失落感中，不仅能帮助你放下过去的美好，还能让你在面对一切时更加坦然踏实。你现在就是了。

《VBAforWord应用》是我发布的第八套教程。本教程致力于讲解如何在Word中应用VBA，重点讲“面向对象编程”，首先向大家介绍Word中VBA中的对象。介绍对象属性和方法，并用实例让大家感受到WordVBA的美妙。本教程集共3卷、16章。今天的主题是第6章“Word中的范围对象”第3节调整范围并插入EXCEL单元格和图表。

第三节Range对象的方法

大家好，本次讲座我们将继续讲解Range对象的方法。在上一讲中，我们讲解了Range对象的InsertParagraph方法、InsertParagraphAfter方法和InsertParagraphBefore方法，而在本讲中，我们将讲解SetRange方法、PasteAndFormat。有方法和PasteSpecial方法。

1RangeSetRange方法

此方法设置现有范围的起始和结束字符位置。

语法表达式SetRangeStart、End

这里表达式是必需的，它是一个代表Range对象的变量。

范围

1)StartrequiredLong范围的起始字符位置。

2)End必需长范围的结束字符的位置。

字符位置值从文章开头开始，第一个值为0。所有字符都会被计算在内，包括非打印字符。即使隐藏字符不可见，也会对其进行计数。

SetRange方法覆盖现有Range对象的开始和结束位置。此方法与Range方法不同，Range方法用于创建具有指定开始和结束位置的范围。

2RangePasteAndFormat方法

此方法粘贴选定的表格单元格并按指定设置它们的格式。

语法ExpressionPasteAndFormatType

这里表达式是必需的，它是一个代表Range对象的变量。

参数类型必需WdRecoveryType粘贴所选表格单元格时使用的格式类型。

WdRecoveryType枚举值

wdChart14将MicrosoftOfficeExcel图表粘贴为嵌入的OLE对象

wdChartLinked15粘贴Excel图表并链接到原始Excel电子表格

wdChartPicture13将Excel图表粘贴为图片

wdFormatOriginalFormatting16保留粘贴材料的原始格式。

wdFormatPlainText22粘贴为纯文本，不带格式

wdFormatSurroundingFormattingWithEmphasis20设置粘贴文本的格式以匹配周围文本的格式。

wdListCombineWithExistingList24将粘贴列表与相邻列表合并

wdListContinueNumbering7使粘贴的列表根据文档中的列表继续编号。

不支持wdListDontMerge25。

wdListRestartNumbering8对粘贴的列表重新编号。

不支持wdPasteDefault0。

wdSingleCellTable6将单个单元格表粘贴为单独的表。

wdSingleCellText5将单个单元格粘贴为文本。

wdTableAppendTable10在选定行之间插入粘贴的行，将粘贴的单元格合并到现有表格中。

wdTableInsertAsRows11将粘贴的表作为一行插入目标表中的两行之间。

wdTableOriginalFormatting12粘贴添加的表格而不合并表格样式。

wdTableOverwriteCells23粘贴表格单元格并覆盖现有表格单元格

wdUseDestinationStylesRecovery19使用目标文档中使用的样式

3RangePaste特殊方法

此方法插入剪贴板的内容。

语法ExpressionPasteSpecialIconIndex、链接、放置、DisplayAsIcon、数据类型、IconFileName、IconLabel

这里表达式是必需的，它是一个代表Range对象的变量。

范围

1)IconIndex可选变体如果DisplayAsIcon为True，则此参数是与要在IconFilename指定的程序文件中使用的图标相对应的数字。该图标出现在“更改图标”对话框中。0对应第一个图标，1对应第二个图标，依此类推。如果省略此参数，则将使用第一个图标。

2)Link可选变体如果为True，则创建指向“剪贴板”内容源文件的链接。默认为false。

3)放置可选变量可以是以下WdOLEPlacement常量之一wdFloatOverText或wdInLine。默认为wdInLine。

4)DisplayAsIcon可选变体如果为True，则链接将显示为图标。默认值为False。

5)DataType可选变体这是剪贴板内容插入文档后使用的格式。WdPasteDataType可以是常量。

6)IconFileName可选变体如果DisplayAsIcon为True，则此参数是存储要显示的图标的文件的路径和文件名。

7)IconLabel如果可选变体DisplayAsIcon为True，则此参数是显示在图标下方的文本。

WdPasteDataType枚举

wdPasteBitmap4位图

wdPasteDeviceIndependentBitmap5设备独立位图

wdPasteEnhancedMetafile9增强型图元文件

wdPasteHTML10HTML

wdPasteHyperlink7超链接

wdPasteMetafilePicture3图元文件图片

wdPasteOLEObject0OLE对象

wdPasteRTF1RTF格式

wdPasteShape8种形状

wdPasteText2文本

4示例调整范围并插入EXCEL单元格和图表

为了通过例子来说明本节的知识点，本例首先定义一个Range为当前文档的第二段，然后使用SetRange来扩展这个范围。

然后在文档末尾插入一个空白段落，并将光标移动到该空白段落。

接下来，我们需要打开Excel文件，将单元格B2复制到剪贴板，并将剪贴板的内容以对象格式粘贴到光标中。

然后在文档末尾再次插入一个空白段落，并将光标移动到该空白段落。然后，将图表从Excel文件复制到剪贴板，并将剪贴板的内容粘贴到光标位置。

最后，关闭Excel文件。

我们先看一下代码。

亚mynzB

【查看代码教程】

服务结束

代码截图

代码解读

1)设置myRange=ActiveDocumentParagraphs2Range

消息框myRangeText

上面的代码设置myRange并提示用户输入myRange的内容。

2)myRangeSetRangeStart:=myRangeStart,_

End:=ActiveDocumentParagraphs3RangeEnd

消息框myRangeText

上面的代码调整了myRange的范围，并提示用户输入myRange的内容。

3）ActiveDocumentContentInsertParagraphAfter

myRangeSetRangeStart:=ActiveDocumentParagraphsActiveDocumentParagraphsCountRangeStart,_

End:=ActiveDocumentParagraphsActiveDocumentParagraphsCountRangeEnd-1

我的范围选择

上面的代码在活动文档的末尾插入一个段落，并将光标位置调整到末尾。

4)设置myEXL=CreateObject34;

我的文件=34；

打开myEXLworkbooksActiveDocumentPath34；我的文件

myEXLVisible=true

设置要打开的文件并打开该文件。

5)复制myEXLSheets34;Range34;

SelectionCollapseDirection:=wdCollapseStart

SelectionRangePasteSpecialDataType:=wdPasteOLEObject

34;Sheet134;ChartObjects1Copy

SelectionPasteAndFormatType:=wdChartPicture

如果复制上面的代码并粘贴图表，则会粘贴图片的格式。

8)关闭我的EXL工作簿

设置myEXL=无

上述操作将关闭Excel文件。

最后，让我们看看运行代码。

Excel工作表界面如下

代码运行时出现的提示框

如果您查看当前文档中的图表格式，您将看到图表是图片格式。

今日内容回顾

1字回显

一、range函数怎么用excel？

虽然您不能直接在Excel中使用范围函数，但您可以使用其他函数实现类似的功能。要生成连续的数字序列，可以将ROW函数与其他函数结合使用。例如-要生成从1到10的序列，可以输入`=ROW-,-ROW-$A$1。+单元格A11`，然后将此公式拖到单元格A10中进行填充。-要创建反向排列，只需在单元格A1中输入“=10-ROW-,+1”，然后拖动以填充单元格A10。要以固定间隔创建序列，可以使用IF函数、ROW函数或OFFSET函数。示例-在单元格A1中生成步长为2的从1到10的序列`=IF-MOD-ROW-,-ROW-$A$1,2,=0,ROW-,-ROW-$A按$1,/2,`，然后拖动此公式以填充单元格A10。-要以3为间隔创建从1到10的序列，请在单元格A1中输入`=IF-MOD-ROW-,-ROW-$A$1,3,=0,ROW-,-ROW-$。单击A$1,/3,`，然后拖动此公式以填充单元格A10。这些公式可以根据需要进行调整以适应不同的需求。

foriinrange用于for循环导航。Python中的范围是一个函数。range-函数可以创建一个整数列表，用于遍历Python中的for循环。

用法如下foriinrange。语法格式范围-开始，停止[,步长]。它们分别是开始、结束和步长。

尽管range-和函数返回的对象的行为类似于列表，但它们实际上并不是列表；它们仅在循环迭代期间返回指定索引处的值，并且实际上并不在内存中创建列表对象。以节省内存空间。实际使用分为以下几种情况

forinrange是从0到3（不包括3），即0,1,2。

2个人

inrange-1,3，即1到3，不包括3，即1,2。

3人

范围内的意思是1到3，每次递增2。由于1+2=3，所以输出只有1。

第三个数字2表示步长。如果未设置，则默认步长为1。