vba - Power Point VBA - 将图片从用户窗体复制到幻灯片
问题描述
亲爱的 StackOverFlow 成员,
是否有可能将图片从用户窗体复制到幻灯片中?
我尝试了几种方法:
ActivePresentation.Slides(1).Shapes.AddPicture
'文件名必须是一个字符串,因此我不能将用户窗体设置为源
我想过 frm_Userform.Image1.Picture
以某种方式获取图片,但我不知道将图片设置在幻灯片中。
预定义图片路径的可能性是不可能的,因为具有不同用户权限的多个用户将使用 makro(加载项)。
是否有其他可能性可以在加载项中保存图片并在幻灯片上使用(粘贴)它?
先感谢您!
解决方案
您可以将徽标文件放在已知位置吗?然后,您可以使用以下内容添加它们:
IconFile$ = AddinPath$ & "\YellowIcon.gif"
Set ShO = PresO.Slides(1).Shapes.AddPicture(FileName:=IconFile$, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=10, Height:=10)
With ShO
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
End With
推荐阅读
- reactjs - 一个 VPS 上的 React 和 spring boot api
- python - 获取文本硒的封闭标签
- android - Android AVD 中的 Chrome 模拟器在 VPN 中使用 Appium 和代理会弹出代理登录
- python - PyCharm 不会安装 gmpy2 - 尝试了所有版本
- node.js - 带有 minizinc npm 的 node.js 上的 Minizinc - 不在 CLI 中时如何定义解决方案选项?
- json - 使用 jq 向 JSON 对象添加新的根级别属性
- oop - 删除子类中的类方法
- rust - 如何构建包含带有箭头-rs 的结构列表的 Apache 箭头消息?
- json - 如何将iptables日志转成json?
- javascript - 表情符号在文本组件的末尾显示带有标签,如何删除“未定义”?