100分求解!求VBA代码,在EXCEL里用VBA自动将EXCEL数据复制

1.100分求解!求VBA代码,在EXCEL里用VBA自动将EXCEL数据复制

你提到的要求以前我也遇到过，研究过这样的VBA代码。

但最终没有完全实现，因为Excel的sheet页面区域很大，而ppt的单页很有限，即使按照sheet的打印页对应ppt的单页也难实现。excel的页面布局也很难复制到ppt中保证不变形。

但我找到了另外一个方法，可以每个sheet变成一张图片对应ppt中的每一个页。这样VBA可以实现，但是缺点是在PPT中的内容是图片，文字等内容不可编辑，并且sheet页面很大时ppt的图片显示相当内容很小。

不知道导出图片放到PPT中这样的实现方案能否满足你的要求，如果可以的话，我可以提供VBA代码帮助。

2.复制幻灯片的两种方法

复制并粘贴幻灯片 如果将幻灯片复制并粘贴到采用不同设计模板 （设计模板：包含演示文稿样式的文件，包括项目符号和字体的类型和大小、占位符大小和位置、背景设计和填充、配色方案以及幻灯片母版和可选的标题母版。）

的幻灯片，则所粘贴的幻灯片将继承其前面的幻灯片的样式。如果希望该幻灯片保持其原始设计样式，可以使用“粘贴选项” 按钮（在普通视图的“大纲”或“幻灯片”选项卡中或者在“幻灯片”窗格中，显示在所粘贴的幻灯片的附近）来更改格式。

1.“粘贴选项”按钮显示在所粘贴的幻灯片的下面。 2.单击此按钮可显示设计样式格式选项。

选择菜单选项“保留源格式”可还原到幻灯片的原始样式。默认选项“使用设计模板格式”应用当前模板的样式。

注释 如果看不到“粘贴选项”按钮，它可能尚未启用。要启用它，请在“工具”菜单上，单击“选项”，然后在“编辑”选项卡上的“剪切和粘贴”下，选择“显示粘贴选项按钮”。

--------------------------------------- 复制并粘贴表格或形状 复制并粘贴形状或表格时，如果它与粘贴目标使用不同的设计模板，则“粘贴选项”按钮 也会出现。可以选择“保留源格式”保留其原始样式；但是，如果形状或表格中存在文本，那么它仍将采用当前设计模板的样式。

--------------------------------------- 使用幻灯片搜索器复制幻灯片 复制幻灯片的另一种方式是使用“幻灯片搜索器”对话框插入幻灯片。在此对话框中，可以选择所需幻灯片而不必打开演示文稿；也可以包含经常从其中复制幻灯片的演示文稿的路径。

在“幻灯片搜索器”对话框中复制幻灯片时，可以在插入幻灯片之前选中或清除“保留源格式”选项。如果选中此选项，***入的幻灯片将保留其原始格式；如果清除此复选框，幻灯片将继承其前面幻灯片的样式。

3.PPT选择性粘贴 宏代码

为如下宏创建一个快捷键、或加一个工具栏图标，需要时，先Copy一下源数据，再选择好目标位置后，执行之，即可！

Sub 选择性粘贴宏_加（）

On Error GoTo ErrorHandler

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _

:=False, Transpose:=False

Exit Sub

ErrorHandler:

MsgBox "选择性粘贴性失败，请先在Excel中Copy再执行本功能"， vbOKOnly + vbCritical， "选择性粘贴"

End Sub

有疑问，请Hi我或给我发百度消息

GoodLuck!

另外，虚机团上产品团购，超级便宜