[已解决!]单元格插入图片变形问题，如何调整代码

lybwr8 · 发表于 2012-3-27 11:43

本帖最后由 lybwr8 于 2012-3-27 22:32 编辑

插图测试.rar (11.97 KB, 下载次数: 38)
附件中有个窗体，请调出来测试一下，谢谢

If Selection.ShapeRange.Height*0.875>Selection.ShapeRange.Width Then'单元格宽：长＝0.875
MsgBox "坚图"
Selection.ShapeRange.Height = 400
Else
MsgBox "横图"
Selection.ShapeRange.Width = 455
End If
在一个单元格中插入图片，要对图片进行等比例缩放，如果图片过高就限定高度，如果图片过宽就要限定宽度，反正不能超过单元格大小，现在是：选择图片时，坚图没有变形，横图却被横向压缩了，哪里设置不对啊

LangQueS · 发表于 2012-3-27 12:06

参考：

★利用有效性信息批量调用信息和图片★ http://club.excelhome.net/thread-529975-1-1.html

doitbest · 发表于 2012-3-27 13:29

加上这句
Selection.ShapeRange.LockAspectRatio = msoTrue

lybwr8 · 发表于 2012-3-27 14:09

doitbest 发表于 2012-3-27 13:29
加上这句
Selection.ShapeRange.LockAspectRatio = msoTrue

我发现插入横图中，始终将纵向约定到了400，所以出现变形。也就是说，在执行select后，纵向约定就初始到400，不论后面怎么IF都不行了。楼上的办法没行通

doitbest · 发表于 2012-3-27 14:13

你上个附件吧

lybwr8 · 发表于 2012-3-27 15:07

doitbest 发表于 2012-3-27 14:13
你上个附件吧

插图测试.rar (11.97 KB, 下载次数: 30)

请帮助测试并修改一下，谢谢

lybwr8 · 发表于 2012-3-27 16:08

本帖最后由 lybwr8 于 2012-3-27 20:09 编辑

哎，上了附件又不看，无赖啊

字打错了，应该是无奈，引起了误会，很是歉意。

doitbest · 发表于 2012-3-27 17:47

Public Sub qqq()
Dim x As Range, h, w
If TypeName(Selection) = "Range" Then Exit Sub
Selection.ShapeRange.LockAspectRatio = msoTrue
For Each x In Selection.TopLeftCell.MergeArea.Columns
w = w + x.Width
Next
For Each x In Selection.TopLeftCell.MergeArea.Rows
h = h + x.Height
Next
If Selection.ShapeRange.Height * 0.875 > Selection.ShapeRange.Width Then '单元格宽：长＝0.875
MsgBox "竖图"
Selection.Left = Selection.TopLeftCell.MergeArea(1).Left
Selection.Top = Selection.TopLeftCell.MergeArea(1).Top
Selection.ShapeRange.Height = h
If Selection.ShapeRange.Width > w Then Selection.ShapeRange.Width = w
Else
MsgBox "横图"
Selection.Left = Selection.TopLeftCell.MergeArea(1).Left
Selection.Top = Selection.TopLeftCell.MergeArea(1).Top
Selection.ShapeRange.Width = w
If Selection.ShapeRange.Height > h Then Selection.ShapeRange.Height = h
End If
End Sub

复制代码

doitbest · 发表于 2012-3-27 17:48

好心帮你却恶语相向！让我怎么说呢…………

lybwr8 · 发表于 2012-3-27 19:01

本帖最后由 lybwr8 于 2012-3-27 20:10 编辑

doitbest 发表于 2012-3-27 17:48
好心帮你却恶语相向！让我怎么说呢…………

天啊，我字打错了，我是说我感到无奈，不是骂你啊，我不至于这么无素质吧。对此表示深深歉意

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

[求助] [已解决!]单元格插入图片变形问题，如何调整代码