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

msmplay

以下程式碼作用是將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

軒云熊

回復 1# msmplay


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

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

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

複製代碼

mark15jill

以下程式碼作用是將excel範圍，貼至outlook信件內文圖片，並設定圖片大小。
但網路上我找不到「文繞圖」的 ...
msmplay 發表於 2022-10-6 11:21

    可以參考微軟的 code
     https://learn.microsoft.com/zh-t ... ons.picturewraptype

另外... 您的code 是word的吧... 怎會跑到excel....@@