用VBA怎样实现图片旋转

发布网友发布时间：2022-04-23 00:11

我来回答

共2个回答

热心网友时间：2023-10-13 23:04

1、如果是在excel里的图片，使用

sheet1.Shapes(1).IncrementRotation 30

2、如果是vba窗体里的

可以通过插入隐藏sheet页，在用上面代码旋转

Dim xlsheet As Worksheet
    Set xlsheet = ActiveSheet
    With xlsheet.Pictures.Insert("F:/A/a.jpg")
        .ShapeRange.LockAspectRatio = msoTrue
        .ShapeRange.Line.Visible = msoTrue
        .ShapeRange.left = xlsheet.Range("A1").left
        .ShapeRange.Top = xlsheet.Range("A1").Top
        .Visible = True
    end With

热心网友时间：2023-10-13 23:04

sheet1.Shapes(1).IncrementRotation 30追问就这简单?我是调电脑里的图显示到用VBA作的窗体里(类似于微软的图片浏览器)

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