精品蜜桃一区二区三区_精品国产一区二区三_久久久久免费_欧美日韩免费在线

win7系統(tǒng)下載
當(dāng)前位置： 首頁(yè) > 硬件軟件教程 > 詳細(xì)頁(yè)面

如何使用VBA自動(dòng)調(diào)整Excel插入的圖片同單元格一樣大小

發(fā)布時(shí)間:2025-03-14 文章來(lái)源:xp下載站 瀏覽:

辦公軟件是指可以進(jìn)行文字處理、表格制作、幻燈片制作、圖形圖像處理、簡(jiǎn)單數(shù)據(jù)庫(kù)的處理等方面工作的軟件。目前辦公軟件朝著操作簡(jiǎn)單化，功能細(xì)化等方向發(fā)展。辦公軟件的應(yīng)用范圍很廣，大到社會(huì)統(tǒng)計(jì)，小到會(huì)議記錄，數(shù)字化的辦公，離不開(kāi)辦公軟件的鼎力協(xié)助。另外，政府用的電子政務(wù)，稅務(wù)用的稅務(wù)系統(tǒng)，企業(yè)用的協(xié)同辦公軟件，這些都屬于辦公軟件。

Step01：鼠標(biāo)依次單擊“開(kāi)發(fā)工具”——“visual basic",打開(kāi)如下圖所示的編輯窗口，單擊sheet1

如何使用VBA自動(dòng)調(diào)整Excel插入的圖片同單元格一樣大小

step02: 輸入如下的VBA代碼：

Sub charutupian()

Dim rng, wj, i As Integer

w = ActiveCell.MergeArea.Width '獲取單元格寬度

h = ActiveCell.MergeArea.Height '獲取單元格高度

l = ActiveCell.Left '獲取單位格左側(cè)位置

t = ActiveCell.Top '獲取單位格上側(cè)位置

    With Application.FileDialog(msoFileDialogFilePicker)

     .Title = "選擇圖片"

    If .Show Then

        '獲取到路徑

         wj = .SelectedItems(1)

    End If

    End With

   

    i = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row '確定表名為 Sheet1，如果不是需要更改

    Set rng = ActiveCell '設(shè)置位置到當(dāng)前單元格

    ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSize

    

End Sub

step03: 關(guān)閉窗口，回到Excel中，鼠標(biāo)依次單擊”開(kāi)發(fā)工具“——”插入“——”按鈕“，在工作區(qū)拖動(dòng)繪制，繪制后，如下圖所示，在“指定宏”對(duì)話框選擇代碼charutupian，然后單擊“確定”按鈕。

如何使用VBA自動(dòng)調(diào)整Excel插入的圖片同單元格一樣大小

STEP04：調(diào)整表格行的高度與寬度，然后單擊"按鈕2"，在彈出”插入圖片“對(duì)話框，挑選合適的圖片后單擊插入按鈕，完成后效果如下圖所示，圖片會(huì)自動(dòng)調(diào)整大小使之符合單元格大小

如何使用VBA自動(dòng)調(diào)整Excel插入的圖片同單元格一樣大小


Office辦公軟件是辦公的第一選擇，這個(gè)地球人都知道。

本文章關(guān)鍵詞： 如何 使用 VBA 自動(dòng) 調(diào)整 Excel 插入 的 圖片  
當(dāng)前原文鏈接：http://www.394287.com/soft/soft-64934.html