插入图片时，锁定图片纵横比，按原比例缩放

lpzxhjp · 发表于 2012-11-21 23:46

doitbest 发表于 2012-11-21 21:34
我用完全正常啊，把你出错的附件传上来

我用1楼的附件做的，就是这样，请老师再看看！

doitbest · 发表于 2012-11-22 09:00

加两句监控语句，再测试一下
With Selection
            If h = 0 Then
            Debug.Print "不锁定图片纵横比"
            .Placement = xlMoveAndSize '图片大小、位置都随单元格而变
            .ShapeRange.LockAspectRatio = msoFalse '不锁定图片纵横比
            。。。。。。
            Else
            Debug.Print "锁定图片纵横比"
            .ShapeRange.LockAspectRatio = msoTrue

lpzxhjp · 发表于 2012-11-22 09:41

本帖最后由 lpzxhjp 于 2012-11-22 09:48 编辑

doitbest 发表于 2012-11-22 09:00
加两句监控语句，再测试一下
With Selection
If h = 0 Then

老师您好，加上之后没作用，在你机子上有这种问题吗？请问输出"不锁定图片纵横比"和"锁定图片纵横比"的作用是什么？

lpzxhjp · 发表于 2012-11-22 09:50

我真的没办法了...

doitbest · 发表于 2012-11-22 10:49

用这个试试。我这里正常，因此只能估计你的可能错误
Else
            .Top = ActiveCell.Offset(0, 1).Top + 2
            .Left = ActiveCell.Offset(0, 1).Left + 2
            .Height = h
            ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ScaleHeight 1, True
               ActiveSheet.Shapes(ActiveSheet.Shapes.Count).ScaleWidth 1, True
               .Height = h
            ActiveCell.RowHeight = h + 3
            End If

lpzxhjp · 发表于 2012-11-22 13:03

doitbest 发表于 2012-11-22 10:49
用这个试试。我这里正常，因此只能估计你的可能错误
Else
.Top = ActiveCell.Offset(0, ...

我怀疑我的excel有问题，现在竟然连h=0时的填满单元格都不正确了，图片宽占了1列多。

lpzxhjp · 发表于 2012-11-22 13:48

doitbest 发表于 2012-11-22 10:49
用这个试试。我这里正常，因此只能估计你的可能错误
Else
.Top = ActiveCell.Offset(0, ...

我没办法了......

doitbest · 发表于 2012-11-22 14:02

有时调试代码要有极大的耐心，一点点尝试，一点点排除

lpzxhjp · 发表于 2012-11-22 21:30

doitbest 发表于 2012-11-21 14:58
图片是按原比例缩放的，但要每个图片都填满单元格，这做不到，因为纵横比不同

谢谢大家，我自己解决了！！！非常感谢参与帮助的各位！

doitbest · 发表于 2012-11-23 09:51

说说怎么解决的？

		自动登录	找回密码
密码			免费注册

[已解决] 插入图片时，锁定图片纵横比，按原比例缩放