返回列表 上一主題 發帖

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

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 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

軒云熊

帖子
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

自己改一下吧  這是之前在這裡找到的  某位前輩寫的 忘了在哪一頁了 已經很久了
  1. Public Sub 把儲存格內容存成檔案()

  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

  26. End Sub
複製代碼

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題