欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

excel表格怎么使用VBA在窗體中預(yù)覽圖片?

百度經(jīng)驗(yàn)   發(fā)布時(shí)間：2020-01-02 10:54:37   作者：武文之道定乾坤   我要評論
excel表格怎么使用VBA在窗體中預(yù)覽圖片？excel表格中的數(shù)據(jù)想要使用vba預(yù)覽圖片，該怎么實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下

excel中想要預(yù)覽圖片，我們可以使用vba在窗體中預(yù)覽圖片，該怎么實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程。

1、首先在開發(fā)工具中打開VBA編輯器

2、在單元格區(qū)域當(dāng)中輸入一些內(nèi)容作為例子

3、在VBA編輯器中插入模塊

4、在模塊當(dāng)中輸入如下代碼，然后運(yùn)行


 

Private Sub ListBox1_Click()
  On Error GoTo err
  Image1.Picture=LoadPicture(ThisWorkbook.path & "\圖片\" & ListBox1.
  Text): Exit Sub
err:
MsgBox "請選擇圖片名！", 64, "提示"
End Sub
Private Sub UserForm_Initialize()
Dim jpg As String, s As String, n As Long, path As String
On Error GoTo err
Me.BackColor=&HFFC0C0  '設(shè)置窗體背景色
Me.ListBox1.BackColor=&HFFFF80   '設(shè)置列表框背景色
path=ThisWorkbook.path & "\圖片\"
s=Dir(path & "\*.jpg")
While Len(s) > 0
n=n+1
s=Dir()
Wend
Image1.Picture=LoadPicture(ThisWorkbook.path & "\" & "圖片\1.jpg")
jpg=Dir(ThisWorkbook.path & "\圖片\*.jpg")
ListBox1.AddItem "圖片列表"
For I=1 To n
ListBox1.AddItem jpg
 jpg=Dir
Next I
Exit Sub
err:
End Sub

5、用快捷鍵F5運(yùn)行窗體，窗體自動加載圖片和圖片列表，如圖

以上就是excel表格使用VBA在窗體中預(yù)覽圖片的教程，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。

相關(guān)推薦：

excel中VBA編輯器怎么設(shè)置字體大小?

Excel中VBA怎么實(shí)現(xiàn)自動批量添加超鏈接?

excel表格怎么利用vba獲取當(dāng)前單元格行號和列號?

相關(guān)文章

  • excel怎么使用vba里的copy命令?

    excel怎么使用vba里的copy命令？excel中想要復(fù)制數(shù)據(jù)，我們可以使用vba中的copy命令函數(shù)來實(shí)現(xiàn)，操作方法也簡單，適合大家學(xué)習(xí)，下面我們就來看看詳細(xì)的教程，需要的朋友可
    2016-10-23

  • excel怎么利用vba獲取單元格交叉范圍的數(shù)據(jù)?

    excel怎么利用vba獲取單元格交叉范圍的數(shù)據(jù)？想要獲取交叉表格中的數(shù)據(jù)，該怎么獲得呢？下面我們就來看看使用vba獲取的方法，很簡單，需要的朋友可以參考下
    2016-10-23

  • excel怎么使用vba判斷最后一個(gè)單元格是否為空?

    excel怎么使用vba判斷最后一個(gè)單元格是否為空？excel中想要知道表格最后一個(gè)單元格有沒有數(shù)據(jù)，該怎么判斷呢？下面我們就來看看使用vba判斷的教程，需要的朋友可以參考下
    2016-10-18

  • 在excel表格中如何用vba給單元格批量輸入序號?

    Excel最強(qiáng)大的功能就是能夠?qū)?shù)據(jù)進(jìn)行運(yùn)算，這依賴于excel的成百上千的內(nèi)部函數(shù)，更體現(xiàn)在excel的強(qiáng)大的VBA，這樣就讓越來越多的需要處理數(shù)據(jù)而又不會編程的人帶來方便，下
    2016-10-16

  • excel如何通過vba代碼關(guān)閉工作薄呢?

    VBA是Excel的底層根本。只有明白使用最底層的東西，使用起來才能隨心所欲，下面小編就為大家介紹excel如何通過vba代碼關(guān)閉工作薄方法，一起來看看吧
    2016-10-16

  • excel vba清除批注方法圖解

    我有一個(gè)excel文檔,里面又有很多個(gè)工作表,每個(gè)工作表里都有很多批注,我現(xiàn)在想把每個(gè)工作表里滿足條件的批注刪掉或者替換成別的，怎么操作呢？下面小編就為大家介紹excel vb
    2016-10-14

  • excel使用vba選取全部工作表的兩種方法

    今天小編為大家分享excel使用vba選取全部工作表的兩種方法，對于不知道怎么操作的朋友可以參考本文，希望這篇文章能對大家有所幫助
    2016-10-12

  • excel vba如何引用單元格值?

    vba單元格引用在學(xué)習(xí)VBA過程中很常用，下面小編就為大家介紹excel vba如何引用單元格值方法，不會的朋友可以參考本文，一起來看看吧
    2016-10-11

  • excel怎么使用vba的close關(guān)閉工作簿?

    excel怎么使用vba的close關(guān)閉工作簿？excel中我們可以使用vba完成很多動作，包括關(guān)閉工作薄，今天我們就來看看close的使用方法，需要的朋友可以參考下
    2016-10-10

  • excel用vba代碼隱藏行的方法介紹

    這篇教程是向腳本之家的朋友分享excel用vba代碼隱藏行的方法，教程比較基礎(chǔ)，適合新手來學(xué)習(xí)，推薦到腳本之家，喜歡的朋友可以參考本文
    2016-10-08

最新評論