Sub 復(fù)制位圖()
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
End Sub

Sub 復(fù)制打印()
    Range("Print_Area").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
End Sub

Sub 清除圖片()
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then shp.Delete
    Next shp
End Sub

Sub 取消篩選(Optional ob) '用于避免篩選導(dǎo)致清理殘留
    If IsMissing(ob) Then Set ob = ActiveSheet.Cells
    ob.AutoFilter Field:=1
    ob.AutoFilter
End Sub

Function 路徑文件全名(Optional path) '包括拓展名
    '空參數(shù)等同ActiveWorkbook.Name
    If IsMissing(path) Then path = ActiveWorkbook.FullName
    路徑文件全名 = Mid(path, InStrRev(path, "\") + 1, Len(path))
End Function

Function 路徑文件名(Optional path) '不包括拓展名
    '也可以用于去掉全名的拓展名
    If IsMissing(path) Then path = ActiveWorkbook.FullName
    路徑文件名 = Mid(path, InStrRev(path, "\") + 1, InStrRev(path, ".") - InStrRev(path, "\") - 1)
End Function

Function 上級文件夾(Optional path) '不包括最后的\,如需要請加 &"\"
    '也可以用于獲取路徑文件夾名，空參數(shù)等同ActiveWorkbook.path
    If IsMissing(path) Then path = ActiveWorkbook.FullName
    上級文件夾 = Left(path, InStrRev(path, "\") - 1)
End Function

Sub 關(guān)閉功能() '關(guān)閉一些功能加快 VBA 宏的運行速度
'    On Error Resume Next '出錯繼續(xù)運行
'    Application.DisplayAlerts = False '禁用警告信息
'    Application.DisplayAlerts = True '啟用警告信息
    Application.ScreenUpdating = False '禁用屏幕更新
    Application.DisplayStatusBar = False '禁用狀態(tài)欄
    Application.Calculation = xlCalculationManual '切換到手動計算-4135，如果中途需要計算時用Calculate
    Application.EnableEvents = False '禁用事件
    ActiveSheet.DisplayPageBreaks = False '禁用本表分頁符
End Sub

Sub 開啟功能() '開啟關(guān)閉的功能，調(diào)試中斷可運行開啟功能
    Application.ScreenUpdating = True '啟用屏幕更新
    Application.DisplayStatusBar = True '啟用狀態(tài)欄
    Application.StatusBar = False '恢復(fù)狀態(tài)欄
    Application.Calculation = xlCalculationAutomatic '切換到自動計算-4105
    Application.EnableEvents = True '啟用事件
    'ActiveSheet.DisplayPageBreaks = displayPageBreaksState '啟用本表分頁符
End Sub

Function 立即窗口清屏()
    VBA.SendKeys "^{g}"
    VBA.SendKeys "^{a}"
    VBA.SendKeys "{del}"
End Function