请教复制的问题，如何保留图片，行高，列宽

z865593849

.................

3190496160

直接sh.copy 拷贝工作表为xlsx后缀的工作簿不就行了吗

z865593849

3190496160  2024-10-12 12:05
sh.copy xlsx

sh.copy  

z865593849

3190496160  2024-10-12 12:05
sh.copy xlsx

SHcopy 会连同工作表事件一起复制，只想保留图片和格式

3190496160

z865593849 发表于 2024-10-12 15:28
SHcopy 会连同工作表事件一起复制，只想保留图片和格式

呵呵呵，xlsx后缀的文件也会有代码？？？？？？除非是出现奇迹

lss001

Sub 存为新表_Click()
    Dim sht1 As Worksheet, yn As Long
   
    yn = VBA.MsgBox("", 36)
    Set sht1 = ActiveSheet '指定表格
    Application.CutCopyMode = False
    If yn = 6 Then
        sht1.Cells.Copy '复制全部
        Dim sht As Worksheet
        Set sht = Worksheets.Add '添加表格
        sht.Paste '粘贴全部
        sht.Cells(1, 1).Select
    ElseIf yn = 7 Then
        Dim wk As Workbook, sht2 As Worksheet
        Set wk = Workbooks.Add
        Set sht2 = wk.ActiveSheet
        sht1.Cells.Copy
        sht2.Paste
        sht2.Cells(1, 1).Select
        '''wk.Close SaveChange:=True '关闭保存
    Else
        Exit Sub
    End If
   
    Set sht = Nothing
    Set sht1 = Nothing
    Set sht2 = Nothing
    Set wk = Nothing
End Sub