Question

我正在使用Excel 2016和Windows 10，我在单元格self.scrollView.minimumZoomScale中插入图片，然后想要调整图片的左上角，同时保持图片的左上角self.scrollView.delegate = self self.scrollView.maximumZoomScale = 2.0 self.scrollView.minimumZoomScale = 0.5 }。有些图片调整到左下角，而其他图片调整到右上角。我尝试使用msoScaleFromTopLeft，但我仍然得到相同的图片缩小到左下角或右上角。

这是我的宏VBA代码：

B17

我错过了什么？有人可以帮我这个或建议一个替代方法来做我想要的吗？

Answer 1

你可以尝试不同的东西，你可以Set你插入的图片的对象（不使用Select和Selection）。

之后，您可以使用With myPic和下面的嵌套属性修改它的属性。

<强>代码

Sub SetPics()

Dim myPic As Picture
Dim PhotoLocation As String
Dim Rng As Range

Set Rng = Range("B17")

Set myPic = ActiveSheet.Pictures.Insert(PhotoLocation)
With myPic
    .ShapeRange.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
    .Top = Rows(Rng.Row).Top
    .Left = Columns(Rng.Column).Left
End With

End Sub

Excel VBA msoScaleFromTopLeft不适合我

1 个答案: