將圖片插入批注

Excel實(shí)用知識 2023-07-15 發(fā)布于廣東

展開全文

今天我們來學(xué)習(xí)如何將圖片插入到批注中，在單元格插入文本批注直接使用自帶功能就能辦到，但是我們卻沒辦法修改批注的背景圖，也就是將圖片插入批注，那么我們?nèi)绾螌D片插入到單元格的批注中呢？下面我們來看看單元格批注的用法吧

下面我們來看一段簡單的給單元格添加圖片批注的代碼。

Sub 圖片插入批注() On Error Resume Next Dim Rng As Range Dim Filestring As String Filestring = Application.GetOpenFilename('圖片,*.jpg;*.png;*.gif', , , , False) Set Rng = Selection Rng.AddComment (' ') With Rng.Comment .Shape.Fill.UserPicture Filestring .Shape.Width = 200 .Shape.Height = 150 End WithEnd Sub

第5行：獲取圖片文件路徑

第6行：將選中的單元格賦值給rng變量

第7行：使用Range的AddCommment方法給單元格添加一個批注

第9行：對Comment的Shape使用圖片填充

第10行：設(shè)置批注的寬度

第11行：設(shè)置批注的高度

本文主要用到的幾個方法屬性如下，以下內(nèi)容以A1單元格為例：

一、添加批注

range('A1').AddComent('此處添加批注文本')

二、批注填充圖片

range('A1').comment.shape.Fill.userpicture '此處填文件路徑'range('A1').comment.shape.width=100 '批注寬設(shè)置為100range('A1').comment.shape.height=100 '

如需遍歷批注：可采用如下方式：

sub test()  dim cmt as comment  for each cmt in Activesheet.comments    with cmt        '此處寫入批注處理代碼    end with  nextend sub

代碼運(yùn)行后效果如下：

好了，本期教程就到這里啦，走過路過的點(diǎn)個關(guān)注分享一下吧，謝謝啦

本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來自： Excel實(shí)用知識 > 《批注》

舉報/認(rèn)領(lǐng)

0條評論

發(fā)表

請遵守用戶評論公約

類似文章 更多

一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

將圖片插入批注