標題:
[發問]
VBA outlook 圖片文繞圖程式碼
[打印本頁]
作者:
msmplay
時間:
2022-10-6 11:21
標題:
VBA outlook 圖片文繞圖程式碼
以下程式碼作用是將excel範圍，貼至outlook信件內文圖片，並設定圖片大小。
但網路上我找不到「文繞圖」的程式碼，想請教如果我想設定圖片的文繞圖為「上及下」，是否有VBA程式碼可達成？謝謝∼
Sub test()
Dim wordDoc As Object
Range("B2:H8").Select
Selection.Copy
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.Subject = ""
.Display
Set wordDoc = OutMail.GetInspector.WordEditor
wordDoc.Range(Start:=0, End:=1).PasteAndFormat 13
wordDoc.InlineShapes(1).LockAspectRatio = msoFalse
wordDoc.InlineShapes(1).Height = 5 * 28.35
wordDoc.InlineShapes(1).Width = 16 * 28.35
End With
End Sub
作者:
mark15jill
時間:
2022-12-4 13:33
以下程式碼作用是將excel範圍，貼至outlook信件內文圖片，並設定圖片大小。
但網路上我找不到「文繞圖」的 ...
msmplay 發表於 2022-10-6 11:21
可以參考微軟的 code
https://learn.microsoft.com/zh-t ... ons.picturewraptype
另外... 您的code 是word的吧... 怎會跑到excel....@@
作者:
軒云熊
時間:
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
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
