[發問] 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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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....@@

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

3^#

發表於 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

複製代碼

TOP