以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生成报表时插入图片处于最底层问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119594)
--  作者：aidimeng
--  发布时间：2018/5/28 12:22:00
--  生成报表时插入图片处于最底层问题
        Sheet(Sheet.Rows.Count-16, 5).Value  = New XLS.Picture(GetImage("\\\\192.168.1.160\\hrdb\\ftp\\img\\zhang.png"))
这样获取到图片，怎么样设置为 图片在最底层呢
--  作者：有点甜
--  发布时间：2018/5/28 15:20:00
--  

excel没有这种功能。

 

你在excel里面如何操作可以达到你需要的效果？请具体说明。
--  作者：aidimeng
--  发布时间：2018/5/28 15:41:00
--  

需要通过vba实现，就是把图层至于最底层

查相关资料  Sheet1.Shapes("11 1").ZOrder msoSendToBack  这样实现

可惜我不懂怎么修改成vba
--  作者：有点甜
--  发布时间：2018/5/28 16:44:00
--  

处理vba，参考

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.name = "test"
Dim pic = ws.Shapes.AddPicture("d:\\test.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 0, 100, 80)
pic.ZOrder(1)
app.visible = True
--  作者：aidimeng
--  发布时间：2018/5/28 16:51:00
--  

谢谢 我试下