vba如何判断图片是否颠倒

发布网友发布时间：2024-08-20 12:35

共1个回答

热心网友时间：2024-08-23 19:40

1、首先在开发工具中打开VBA编辑器。
2、在单元格区域当中输入一些内容作为例子，在VBA编辑器中插入模块。
3、在模块当中输入如下代码，然后运行，Sub翻转，DimpicAsShape，ForEachpicInActiveSheet.Shapes，pic.FlipmsoFlipHorizontal'水平翻转，pic.Flip，msoFlipVertical，垂直翻转，Next，MsgBox，图片已水平翻转，ForEachpicInActiveSheet.Shapes，pic.FlipmsoFlipHorizontal，水平翻转，pic.FlipmsoFlipVertical，垂直翻转，Next，MsgBox，图片已垂直翻转，EndSub。
4、用快捷键Alt+F8调出运行宏窗口，然后单击执行按钮，工作表中所有图形垂直翻转，同时弹出提示。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com