[原创]在EXCEL中实现单元格图片下拉选择菜单

yigepure · 发表于 2006-7-29 20:41

在EXCEL中也玩一把，实现图片下拉选择框

5tQLiRKw.rar (48.26 KB, 下载次数: 715)

[此贴子已经被作者于2006-7-29 20:43:59编辑过]

northwolves · 发表于 2006-7-29 21:20

不错，谢谢分享

litingxin · 发表于 2006-7-29 23:38

谢谢分享

hhzjxss · 发表于 2007-3-13 10:01

不错，可是我选择图标以后，不是在当前单元格里面输入了图片，而是在B4-B5的地方，其他单元格也是如此，为什么？？

TGB · 发表于 2007-3-13 10:02

真的好强!

flying_micky · 发表于 2007-3-13 10:10

怎么就那么强?

ggaogge · 发表于 2007-3-19 10:12

好强。谢谢！

香川群子 · 发表于 2007-3-19 11:26

很好，应该很有实用价值的说。

shewoyu · 发表于 2007-3-19 14:57

Sub AddPicture()
    Dim StrPath As String
    Dim StrPic As String
    Dim Num     As Integer
    Dim temp    As Integer

    Sheet1.imglstPic.ListImages.Clear
    Sheet1.imgcboPic.ComboItems.Clear
    Erase StrFile

    ReDim StrFile(1 To 100)
    StrPath = ThisWorkbook.Path
    If VBA.Left$(StrPath, 1) <> "\" Then StrPath = StrPath & "\"
    StrPath = StrPath & "picture\"
    StrPic = Dir(StrPath & "*.*")

    Do While StrPic <> ""
        Num = Num + 1
        Sheet1.imglstPic.ListImages.Add Num, , LoadPicture(StrPath & StrPic)
        StrFile(Num) = StrPath & StrPic
'        Debug.Print StrFile(Num)
        StrPic = Dir
    Loop

    ReDim Preserve StrFile(1 To Num)《〈〈下标越界〉〉》
    Sheet1.imgcboPic.ImageList = Sheet1.imglstPic
    For temp = 1 To Sheet1.imglstPic.ListImages.Count
        Sheet1.imgcboPic.ComboItems.Add , , , temp
    Next temp

End Sub

louis_sean · 发表于 2007-3-19 16:27

very good

		自动登录	找回密码
密码			免费注册

[原创]在EXCEL中实现单元格图片下拉选择菜单

最新热点 /1