时间戳

首页 > 解决方案 > 范围快照作为弹出窗口

excel - 范围快照作为弹出窗口

问题描述

Option Explicit
Sub Rng_Snapshot()
 Dim rng As Range
 
 Application.ScreenUpdating = False
 
 Set rng = Sheet89.Range("U14:AU61")
 
 rng.CopyPicture
 
 On Error Resume Next
 
 Sheet4.Range("A1").PasteSpecial
 
 Set rng = Nothing
 
 Application.ScreenUpdating = True
 End Sub

我正在使用上面的代码创建一系列单元格的快照并将其粘贴到单独的工作表中。有没有办法修改它，以便将快照显示为其他所有内容前面的弹出窗口？

标签： excelvbapopup

解决方案

对于快速而肮脏的解决方案，您可以简单地将图片粘贴到某处并等待几秒钟，然后再次删除它。（用于不透明背景的位图）。不过，图片的大小是有限制的，这取决于你在屏幕上还有什么。

Range("D13:AF58").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveSheet.Paste Destination:=Range("A99")
Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
Range("A99").Show
Application.Wait (Now + TimeValue("0:00:02"))
Selection.Delete
Application.CutCopyMode = False

推荐阅读