首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

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

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

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

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

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

  • 腾讯云云服务器(CVM):提供弹性计算能力,满足各种业务需求。产品介绍链接
  • 腾讯云对象存储(COS):提供安全、稳定、低成本的云端存储服务。产品介绍链接
  • 腾讯云人工智能(AI):提供丰富的人工智能服务,包括图像识别、语音识别、自然语言处理等。产品介绍链接
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

常见复制粘贴,VBA是怎么做

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

11.8K20
  • 使用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.9K20

    在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工作图表复制到该文档中代码完成。

    75850

    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.3K21

    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

    2.1K20

    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.8K40

    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.7K20

    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

    46330

    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 这是通常使用代码

    1.1K40

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

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

    54020

    使用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.4K20

    ChatGPT与Excel结合_编写VBA宏

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

    62110

    ChatGPT与Excel结合_编写VBA宏

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

    50020

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

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

    1.1K10

    安防视频流媒体服务器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 之间)。这个系统提供了身份验证与加密通讯方法。 ?

    89320
    领券