以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  在单元格中插入图片同时输入文本如何写代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184496)

--  作者：xluoping --  发布时间：2022/12/10 16:35:00 --  在单元格中插入图片同时输入文本如何写代码？                 With .Cell((hang \\ 2) + 1,(hang Mod 2) + 1 )                     .Range.Delete                     .Range.InlineShapes.AddPicture(fllc)                     .Range.InlineShapes(1).Height = 300                     .Range.InlineShapes(1).Width = 200                     .Range.Text = vbcr & "ewrwer"                 End With

--  作者：有点蓝 --  发布时间：2022/12/10 17:07:00 --   .Range.value = vbcr & "ewrwer"

--  作者：xluoping --  发布时间：2022/12/11 16:05:00 --   按照这样，导出的word错误，有图片，后面没有内容                 With .Cell((hang \\ 2) + 1,(hang Mod 2) + 1 )                     .Range.Delete                     .Range.InlineShapes.AddPicture(fllc)                     .Range.InlineShapes(1).Height = 300                     .Range.InlineShapes(1).Width = 200                     .Range.value = vbcr & "ewrwer"                 End With

--  作者：有点蓝 --  发布时间：2022/12/11 20:04:00 --   请上传实例测试