技術標籤：qt中label獲取當前圖片

應用場景

1、下載或收發的工作表中存在圖片，需要匯出備份

2、資料分析的資料圖表，需要批量的匯出圖片

附：視訊

知識要點

1、Dir(path, vbDirectory)檢查某些檔案或目錄是否存在，返回目錄或資料夾名稱

2、Kill (path & "*")從磁碟中刪除檔案

3、MkDir (path) 建立一個新的目錄或資料夾

4、ChartObjects.Add 建立新的嵌入式圖表

附：原始碼

Sub 匯出工作表中的圖片()    '-----------------------------------------------------------------------    '自定義資料型別    Dim path As String    Dim Shp, Sht    Dim n As Long        Application.ScreenUpdating = False        '在當前路徑下增加一個資料夾，名稱為“匯出圖片”，賦值給path    path = ThisWorkbook.path & "\匯出圖片\"        '在當前路徑是否存在資料夾，存在則清空，不存在則新建    If Len(Dir(path, vbDirectory)) Then        Kill (path & "*")        GoTo A:    Else        MkDir (path)        GoTo A:    End If'遍歷工作薄的每個工作表，如果表中存在圖片，則匯出A:    For Each Sht In ThisWorkbook.Sheets        Sht.Activate        If ActiveSheet.Shapes.Count > 0 Then            n = 0            For Each Shp In ActiveSheet.Shapes                    n = n + 1                    Shp.Copy                    '建立新的嵌入式圖表，儲存到當前路徑的新建資料夾中                    With ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height).Chart                        .Paste                        .Export path & Sht.Name & "-" & Shp.Name & ".jpg"                        .Parent.Delete                    End With            Next        End If    Next Sht    Application.ScreenUpdating = True End Sub
 

獲取示例檔案連結：

https://pan.baidu.com/s/1HEv07-jyzEXTNoI4m11Yqw

提取碼：hy61