VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 548|回复: 3

[求助] 将选择的图片放大两倍的问题

[复制链接]
发表于 2019-5-9 16:17:38 | 显示全部楼层 |阅读模式
3.jpg

我要把在EXCEL工作簿里的选中的图片放大两倍。
代码如下:
Option Explicit

Dim XlApp As New Excel.application    '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
Dim selection As Excel.Shape

Private Sub Command1_Click()
On Error GoTo ErrLine
selection.shaperange.ScaleHeight 2, msoFalse, msoscalefromtopleft
If application.version < 12 Then
    selection.shaperange.ScaleWidth 2, msoFalse, msoscalefromtopleft
End If
Exit Sub
ErrLine:
    MsgBox "请选择图片后再执行本过程", vbInformation, "错误提示"
End Sub

Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
XlApp.Caption = "应用程序调用 Microsoft Excel"

Set XlBook = XlApp.Workbooks.Open(App.Path & "\7-26 重新描述错信息.xlsm")
Set XlSheet = XlBook.Worksheets(1)
End Sub
我试了一下,在EXCEL里用VBA是可以的,在VB里不行,提示
msoFalse没定义,我应该怎么改呀?谢谢!
 楼主| 发表于 2019-5-9 16:19:56 | 显示全部楼层
我定义了两个常量,就没那个问题了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是还有新的问题。
4.jpg

我在VB窗体里定义了一个按钮,放大两倍。
可是,我打开EXCEL,选中一张图片,然后再点击窗体,那个图片就自动取消选中。
这可怎么办呀?大神帮我。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-5-9 16:21:13 | 显示全部楼层
我定义了两个常量,就没那个问题了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是还有新的问题。


我在VB窗体里定义了一个按钮,放大两倍。
可是,我打开EXCEL,选中一张图片,然后再点击窗体,那个图片就自动取消选中。
这可怎么办呀?大神帮我。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-5-9 16:22:06 | 显示全部楼层
我定义了两个常量,就没那个问题了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是还有新的问题。


我在VB窗体里定义了一个按钮,放大两倍。
可是,我打开EXCEL,选中一张图片,然后再点击窗体,那个图片就自动取消选中。
这可怎么办呀?大神帮我。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-8-22 04:34

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表