如何使用PasteSpecial修复未复制到新工作表的图形

在Excel中，当我们复制一个包含图形的工作表到另一个工作表时，有时候会遇到图形未能正确复制到新工作表的问题。为了解决这个问题，我们可以使用PasteSpecial功能来修复。

PasteSpecial是Excel中的一个功能，它允许我们将复制的内容以不同的方式粘贴到目标位置。对于修复未复制到新工作表的图形，我们可以按照以下步骤进行操作：

首先，选择包含图形的原始工作表，然后按下Ctrl+C键或右键点击选择复制。
接下来，切换到目标工作表，选择要粘贴图形的位置。
在Excel的菜单栏中，点击“开始”选项卡。
在“开始”选项卡中，找到“剪贴板”区域的右侧，点击“粘贴”按钮的下拉箭头。
在下拉菜单中，选择“选择性粘贴”或“PasteSpecial”。
弹出的对话框中，选择“图形”选项。
点击“确定”按钮，Excel将会将图形粘贴到目标位置。

通过使用PasteSpecial功能的“图形”选项，我们可以确保图形正确地复制到新工作表中。这样，我们就修复了未复制到新工作表的图形的问题。

腾讯云相关产品和产品介绍链接地址：

腾讯云云服务器（CVM）：提供弹性计算能力，满足各种业务需求。产品介绍链接
腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务。产品介绍链接
腾讯云人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等。产品介绍链接

相关·内容

问与答118：如何使用VBA将多个工作表数据复制到PPT中？

遍历每个工作表，如果工作表的单元格S1中的值为“1”，则将该工作表的“Print_Area”（打印区域）复制并粘贴到一张空白幻灯片中。 A：可以使用下面的VBA代码实现。...Exit Sub End If On Error GoTo 0 '优化 Application.ScreenUpdating = False '创建新演示 Set...myPresentation =PowerPointApp.Presentations.Add '遍历Excel工作表,粘贴到PowerPoint For Each ws In ActiveWorkbook.Worksheets...，注意添加新幻灯片的代码技巧。...注：今天的问题整理自mrexcel.com论坛，供有兴趣的朋友参考。欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

4.9K3 0

常见的复制粘贴，VBA是怎么做的

此外，它们被设计为从特定的源工作表复制到该示例工作簿中的另一个目标工作表。通过调整对象引用的构建方式，可以轻松修改这些行为。...例如，通过限定指定目标单元格区域的对象引用，可以将单元格区域复制到其他工作表或工作簿。...示例1：复制单元格区域到剪贴板首先，让我们看看如何将示例工作表（表和单价）中的所有项目复制到剪贴板。...Destination参数，将工作表“Sample Data”中的单元格区域B5:M107复制到工作表“Example 2 - Destination”中的列B至列M中： Sub Copy_to_Range...以一个例子来说明：如果查看示例1（复制到剪贴板）和示例2（复制到目标区域）的结果，会注意到目标工作表与源工作表看起来几乎相同。换句话说，Excel复制并粘贴全部（值、公式、格式）。

11.6K2 0

常见的复制粘贴，VBA是怎么做的（续）

Paste方法的主要目的是将剪贴板包含的内容粘贴到相关工作表上。...Worksheet.Activate方法，主要目的是激活相关工作表，等价于单击Excel界面下方的工作表选项卡。...10.Range.CopyFromRecordset方法，将数据访问对象（DAO）或ActiveX数据对象（ADO）Recordset对象的内容复制到工作表中。...15.Sheets.Copy方法，将工作表复制到其他位置。 16.Slicer.Copy方法，将切片器复制到剪贴板。 17.Walls.Paste方法，将剪贴板中的图片粘贴铺满图表。...18.Worksheet.Copy方法，将工作表复制到其他位置。 19.Worksheet.PasteSpecial方法，使用指定格式将剪贴板中的内容粘贴到工作表上。

10K3 0

如何根据Excel某列数据为依据分成一个新的工作表

我们有时候需要将表单内的某列数据分到新的工作表里。...5029b2@qq.com 5029 Yan Yuki M Grade 3 Bilingual BG3 H 5029@example.com 妈妈 5029b3@qq.com 解析首先我们先按年级将表格分为新的文件...之后我们将按照班级分工作表 Step 1 Separate Excel Data into Workbooks by Column Values Using Python 1....关闭VBA窗口，在Excel表Tab中的Developer中点击Macros。在弹出Macro窗口选择Splitdatabycol并点击Run即可。...然后代码运行之后，会弹出第一个窗口，选择全部表头（标题）{A1:D1} 第二个弹出框选择，除去标题的全部列。

6.7K3 0

VBA拆分工作簿示例

标签：VBA 如下图1所示，列B中有一系列重复数据，想要将每个重复的数据所在的行放到一个新工作簿并以该数据作为工作簿名。例如，列B中为7890的所有行复制到一个新工作簿并命名为7890.xlsx。...图1 这里借用在vbaexpress.com中找到的一段程序来实现。...8 .PasteSpecial 12 .PasteSpecial -4122 End With Application.CutCopyMode = False...Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub 如果你有类似的需求，只需根据实际情况修改代码中工作表的名称...这也是一个很好的初学者示例，有兴趣的朋友可以边学习边研究其实现过程。

791 0

使用VBA将图片从一个工作表移动到另一个工作表

下面的Excel VBA示例将使用少量的Excel VBA代码将图片从一个工作表移动到另一个工作表。为了实现这个目的，要考虑以下事情： 1.要移动的图片的名称。...3.如何处理所选内容要替换的图片？这里，使用数据验证列表来选择一个国家（的国旗），而Excel VBA将完成其余的工作。以下是示例文件的图片，以方便讲解。...只需从蓝色下拉列表中选择要移动的图片名称，然后单击移动按钮，就可将相应的图片（旗帜）移动到另一个工作表。当然，这里可以调整让工作表事件来处理。...[d8].PasteSpecial Application.ScreenUpdating = True End Sub 上面简单的程序分为两个部分，首先从目标工作表中删除所有图片（Sheet1是目标工作表...然后将单元格E13中名称对应的图片复制到工作表1的单元格D8。演示如下图2所示。图2 有兴趣的朋友可以到原网站下载原始示例工作簿。也可以到知识星球App完美Excel社群下载汉化后的示例工作簿。

3.8K2 0

在Excel中使用VBA来自动化Word

本文演示的例子是，在Excel中使用VBA打开新的Word文档，复制Excel图表并粘贴到这个文档中。同时，介绍了一种你不熟悉Word VBA的情形下怎样获取相关的代码并在Excel中使用的方法。...VBA打开应用程序时，通常是在后台打开，因此，要使Word文档可见，添加了下面的代码： WordApp.Visible = True 当然，在Excel中，也可以使用宏录制器录制代码，本示例中是复制工作表中的图表...： Sub 宏3() ' ' 宏3 宏 ' ' Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _...WordApp.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _ wdInLine, DisplayAsIcon...:=False Set WordApp = Nothing End Sub 至此，在Excel中打开Word并创建新文档，然后将Excel工作表中的图表复制到该文档中的代码完成。

6345 0

VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表

VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表【问题】我们发了这样一个表格到各单位收集资料，各单位填写完后上交上来有许多个文件，我们现在想汇总成一年一个表，怎么办？...那就加班，再加班【解决问题】我们的口号是VBA使工作效率提高，不加班 ====【代码】==== Sub 提取多文件一工作表中不同区域汇总() Dim fileToOpen, x, total_file_path...= sht2016.Cells.Find("*", Cells(1, 1), , , 1, 2).Row + 1 sht2016.Range("A" & Lrow).PasteSpecial...= sht2017.Cells.Find("*", Cells(1, 1), , , 1, 2).Row + 1 sht2017.Range("A" & Lrow).PasteSpecial...-2018的表格中，下一次的复制，复制到最后的一行中的A列中， 4.因为在打开文件的过程中可能有些人在传输文件中，文件损坏了，所以加上On Error Resume Next，不报错继续运行。

2.2K2 1

VBA实用小程序：将Excel中的内容输入到Word

因此，下面的这段代码很简单，对其进行设置，只需为Excel中的文本、区域和图表命名，并按照代码中的说明在Word书签中创建匹配的名称。注意，我不能保证它在所有情况下都能工作。...完整的代码： '这里的代码使用书签将图表和表复制到Word文档中 'Word文档必须打开并处于活动状态,即当前可见的Word文档 '要复制一个表，给它一个以tbl开头的区域名称 '然后在Word文档中插入一个使用该名称的书签..., '如果表的名称是tblPerf3Yrs,则在该名称前加上tag_前缀 '然后添加书签tag_tblPerf3Yrs '与图表类似,可以为图表命名以"cht"开头 '确保选择完整的图表,而不仅仅是其中的一部分...'标签必须作为Excel中的区域存在才能使其工作 Private Sub PasteTableToWord(B As Object) Dim strTag As String On Error...'图表必须在当前工作表中 'Method可以是下面在Select Case子句中列出的任何值 Private Sub CopyChartToWord(B As Object, rngMark,Optional

2K2 0

常用功能加载宏——多个工作表合并到一个工作表

把数据复制到一个工作簿后，一般我们还需要进行数据处理，而数据处理要在一个工作表才方便，所以把多个工作表的数据复制到一个工作表再进行数据处理也会经常碰到： ?...首先在customUI.xml中增加代码： <button id="rbbtnMergeSht" label="合并<em>工作</em><em>表</em>" onAction="rbbtnMergeSht" imageMso...With sht '取消筛选 .AutoFilterMode = False '按第一列定位，获取表格的最后所在的行....Cells(Cells.rows.Count, 1).End(xlUp).Row If rows > 1 Then '获取表格的列的范围...如果只需要复制数值： ' .Range("A2").Resize(rows - 1, cols).Copy ' rngout.PasteSpecial

1.7K3 1

VBA实战技巧35：使用VBA组织图形2

引言：本文的代码与昨天发表的《VBA实战技巧34：使用VBA组织图形1》一样，都整理自mrexcel.com，一个很好的令人兴奋的示例，有兴趣的朋友可以仔细研究。...代码所使用的工作表数据与《VBA实战技巧34：使用VBA组织图形1》相同，如下图1所示，包含所需信息的源数据表，其中：列A和列B – 两个元素之间的关系。形状填充颜色将来自列A。...图1 与《VBA实战技巧34：使用VBA组织图形1》不同，本文的代码自顶向下组织图形，代码运行后的效果，如下图2所示。...To lr Set sn = ws.Shapes(Range("a" & i)) sn.Height = h sn.Width = w '新的垂直位置...，可以到知识星球或者我们的微信交流群中下载示例工作簿，以方便理解和运用代码。

1.7K4 0

VBA实用小程序：核查并标记公式是否被正确复制

下面的代码将复制活动工作表，然后标记公式，使用阴影显示已复制哪些以及从何处复制。它从左到右、从上到下进行核查。...纯色 = 此单元格尚未从左侧或上方复制，即它是新的水平剖面线 = 此单元格已从左侧复制垂直剖面线 = 此单元格已从上方复制交叉影线 = 此单元格已从左侧+上方复制这个想法的目的是为了更容易检查复杂的工作表...如果表中间有一个公式损坏的单元格，它将是一个非常明显的纯色。显然，代码复制了工作表，然后逐个查看每一单元格，首先从左侧复制公式，然后从上方复制，看看它是否给出相同的结果。...j = 1 To C - 1 If Left$(V(i, j), 1) = "=" Then Cells(i, j).Copy Cells(i, j + 1).PasteSpecial...).Formula = V(i, j + 1) Cells(i, j).Copy On Error Resume Next Cells(i + 1, j).PasteSpecial

4453 0

Python-Excel-09-复制单元格区域

今天讲讲使用win32com模块，复制工作表某一区域数据 Part 1：示例说明 ?...已有一个Excel文件区域复制.xlsx，其中包括4个工作表工作表：原，原始数据工作表：复制1，空表工作表：复制2，空表工作表：复制3，空表采用三种方法复制工作表原中（A1:C5）区域数据分别到工作表复制...1，复制2，复制3 工作表复制1，复制3对应方法为全复制；复制2对应方法只复制数据原 ?...sht_new_1.Paste(Destination=sht_new_1.Range("A1"))，注意使用Paste方法，目标区域是以参数形式给出的：Destination=sht_new_1.Range...("A1") sht_new_2.Range("A1").PasteSpecial(Paste=c.xlPasteValues)，目标区域是放在开始的位置 xl_app.Quit()，关闭Excel这个程序

1.6K2 0

VBA代码：将整个工作簿中的所有公式转换为值

标签：VBA 这是不是将工作簿中的每个公式转换为值的最快、最有效的方法，请大家评判。有趣的是，不管工作簿中有多少张表，它都是用一个操作来处理的。...通常情况下，都是试图通过遍历工作表来做到这一点，然而并没有那么有效。...Paste:=xlPasteValues ActiveSheet.Select Application.CutCopyMode = False End Sub 如果工作簿中有隐藏的工作表，则上面的代码不起作用...Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End If End Sub 其实，还可以使用更简单的代码...Application.CutCopyMode = False For Each sh In HidShts sh.Visible = xlSheetHidden Next sh End Sub 这是通常使用的代码

8454 0

社群答疑精选03：拆分数据到新工作表

下面是完美Excel社群中佳佳朋友的提问（我稍作整理）：如下图1所示，根据是否是户主创建新工作表并将户主及对应的家庭成员复制到该工作表中，并以户主姓名命名该工作表。 ?...图1 这种问题最适合使用VBA来解决。仔细观察后发现，户主对应的人数就是该户家庭在工作表中所占的行数，这样只要定位到户主，就知道了该户所有成员的范围，这就方便提取相应的数据了。...下面的代码使用数组来存储户主所在行的行号以及该户所占的行数（也就是每户的人口数），其他的与上面的代码相同。...str = "户主" '查找的数据所在的工作表 Set wksData =Worksheets("Sheet1") '数据所在工作表的最后一行行号 lngLast...ReDim Preserve arr2(j) arr2(j) = lngLast - arr1(j) + 1 '新建工作表并复制户主数据到该工作表 For k =

5282 0

ChatGPT与Excel结合_编写VBA宏

VBA允许用户编写自定义的脚本或宏，以便通过执行一系列指令来自动完成特定任务。使用Excel VBA宏，你可以创建和编辑工作表、处理数据、执行计算、生成报表、自定义用户界面等。...' 提示完成信息 MsgBox "已将行数据分割为新的工作簿并保存。"...End Sub 请将代码中的"路径\文件名.xlsx"替换为你希望保存的路径和文件名。运行该宏后，会将第3行到第9行的每一行数据复制到一个新的工作簿，并将其保存在指定的路径下。...”生成新表格，但“回炉再造”一遍就好，重要的是学会ChatGPT与Excel结合来编写VBA宏 ---- 案例2 又比如我的需求是：编写一个Excel VBA宏，将工作薄，每个工作表中的图片，移动到A1...End Sub 运行该宏后，它会遍历当前Excel工作簿中的每个工作表，并删除每个工作表中的所有图片。在删除图片之后，会弹出一个提示框显示操作已完成。

5451 0

ChatGPT与Excel结合_编写VBA宏

4452 0

使用VBA将工作簿中所有的数据转换成值

标签：VBA 通常，工作簿中会包含很多工作表，而工作表中的数据有些是单纯的数值，而有些是公式的结果。如果我们想要将工作簿中所有的数据都转换为值，也就是说，公式转换为其结果值，如何快速实现呢？...可以使用VBA遍历工作表来解决，代码很简单，如下： Sub ConvertDatatoVal() Dim wks As Worksheet For Each wks In Sheets...wks.UsedRange.Copy wks.UsedRange.PasteSpecial xlPasteValues Next wks Application.CutCopyMode...= 0 End Sub For Each循环遍历工作簿中的所有工作表，复制工作表中已使用的区域，然后在同样的区域粘贴值。...因此，如果原版本的数据还有用，则需要确保将文件保存一份备份，以防运行程序后不能还原。有时候，一段小小的代码可以解决一些需要花时间的重复繁琐的操作。

1.3K2 0

Excel应用实践15：合并多个工作表

学习Excel技术，关注微信公众号： excelperfect 有时候，我们需要将工作簿中的所有工作表的数据合并到一个工作表中。...如果工作表数量很少，可以直接手工使用复制粘贴操作，然而，如果工作表很多并且工作表中的数据量很大，手工复制既繁琐又容易出错漏。...还好有VBA，对于这种情况，编写少量的代码，即可迅速且准确无误地完成合并工作。下面的代码假设每个工作表中的标题行相同。代码将新建一个工作表，将工作簿所有工作表中的数据合并到这个新工作表中。...Set rngTarget =wksNew.Range("A1") '遍历工作表并将工作表中的数据粘贴到新工作表中 For lngSheets = LBound(arrSheetNames...xlPasteValues rngPaste.PasteSpecial xlPasteFormats '去除复制单元格周边的框线 Application.CutCopyMode

1.1K1 0

安防视频流媒体服务器EasyNVR关于React-native打包安卓应用如何修复“未使用HTTPS协议的数据传输风险”？

安防视频流媒体服务器EasyNVR目前也已经运用到了一些幼儿园移动监控项目中，此项目开发了安卓APP，之前我们提过此APP的另外一个问题：显示“数据任意备份风险”提示，该问题现已得到解决。 ?...本文我们讲一下关于React-native打包安卓应用如何修复“未使用HTTPS协议的数据传输风险”。在对此APP做测试之后，发现软件存在未使用HTTPS协议的数据传输风险。...HTTPS协议是以安全为目标的 HTTP 通道，在HTTP的基础上通过传输加密和身份认证保证了传输过程的安全性。那如何解决此处出现的HTTPS协议问题呢？...HTTPS 在HTTP 的基础下加入SSL 层，HTTPS 的安全基础是 SSL，因此加密的详细内容就需要 SSL。...HTTPS 存在不同于 HTTP 的默认端口及一个加密/身份验证层（在 HTTP与 TCP 之间）。这个系统提供了身份验证与加密通讯方法。 ?

8812 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

如何使用PasteSpecial修复未复制到新工作表的图形

相关·内容

问与答118：如何使用VBA将多个工作表数据复制到PPT中？

常见的复制粘贴，VBA是怎么做的

常见的复制粘贴，VBA是怎么做的（续）

如何根据Excel某列数据为依据分成一个新的工作表

VBA拆分工作簿示例

使用VBA将图片从一个工作表移动到另一个工作表

在Excel中使用VBA来自动化Word

VBA汇总文件夹中的多文件的工作表中不同单元格区域到总表

VBA实用小程序：将Excel中的内容输入到Word

常用功能加载宏——多个工作表合并到一个工作表

VBA实战技巧35：使用VBA组织图形2

VBA实用小程序：核查并标记公式是否被正确复制

Python-Excel-09-复制单元格区域

VBA代码：将整个工作簿中的所有公式转换为值

社群答疑精选03：拆分数据到新工作表

ChatGPT与Excel结合_编写VBA宏

ChatGPT与Excel结合_编写VBA宏

使用VBA将工作簿中所有的数据转换成值

Excel应用实践15：合并多个工作表

安防视频流媒体服务器EasyNVR关于React-native打包安卓应用如何修复“未使用HTTPS协议的数据传输风险”？

扫码

相关资讯

热门标签

活动推荐

运营活动

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐