VBA outlook 圖片文繞圖程式碼 - Excel程式區

[發問] VBA outlook 圖片文繞圖程式碼

1^# 跳轉到 »

發表於 2022-12-7 12:13 | 顯示全部帖子

回復 1# msmplay

以下這段改一下試試看
Range("B2:H8").Select
Selection.Copy

自己改一下吧這是之前在這裡找到的某位前輩寫的忘了在哪一頁了已經很久了

Public Sub 把儲存格內容存成檔案()
Range("A1:A12").CopyPicture 1, 2
Range("A1").Select
ActiveSheet.Paste
'顯示圖片或按鈕名稱
For Each Shp In ActiveSheet.Shapes
Debug.Print Shp.Name
If Left(Shp.Name, 7) = "Picture" Then
Shp.Copy
With ActiveSheet
Set Cht = .ChartObjects.Add(0, 0, Shp.Width + 5, Shp.Height + 5)
'將Shape的圖片貼上圖表物件中
With Cht
.Border.LineStyle = 0
.Chart.Paste
'在使用Export方法, 圖表匯出成JPG圖檔
.Chart.Export "C:\Users\a5525\Desktop\EXCEL的xlsm檔案\888.jpg" ', filtername:="JPG"
'刪除圖表
.Delete
End With
End With
End If
Next Shp
End Sub

複製代碼

靜思自在 : 欣賞別人就是莊嚴自己。