VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 1005|回復: 3
打印 上一主題 下一主題

[求助] 將選擇的圖片放大兩倍的問題

[復制鏈接]
跳轉到指定樓層
1
發表于 2019-5-9 16:17:38 | 只看該作者 |只看大圖 回帖獎勵 |倒序瀏覽 |閱讀模式


我要把在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沒定義,我應該怎么改呀?謝謝!
2
 樓主| 發表于 2019-5-9 16:19:56 | 只看該作者
我定義了兩個常量,就沒那個問題了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是還有新的問題。


我在VB窗體里定義了一個按鈕,放大兩倍。
可是,我打開EXCEL,選中一張圖片,然后再點擊窗體,那個圖片就自動取消選中。
這可怎么辦呀?大神幫我。
回復 支持 反對

使用道具 舉報

3
 樓主| 發表于 2019-5-9 16:21:13 | 只看該作者
我定義了兩個常量,就沒那個問題了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是還有新的問題。


我在VB窗體里定義了一個按鈕,放大兩倍。
可是,我打開EXCEL,選中一張圖片,然后再點擊窗體,那個圖片就自動取消選中。
這可怎么辦呀?大神幫我。
回復 支持 反對

使用道具 舉報

4
 樓主| 發表于 2019-5-9 16:22:06 | 只看該作者
我定義了兩個常量,就沒那個問題了。
Const msoFalse = 0
Const msoScaleFromTopLeft = 0
可是還有新的問題。


我在VB窗體里定義了一個按鈕,放大兩倍。
可是,我打開EXCEL,選中一張圖片,然后再點擊窗體,那個圖片就自動取消選中。
這可怎么辦呀?大神幫我。
回復 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

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

GMT+8, 2020-3-21 06:49

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
守车人游戏 广西快乐双彩开奖信息 11选5高手是怎么赢钱的 单机欢乐斗牛牛破解版 福彩五分快三骗局步骤 快乐赛车开奖直播 河北20选5 幸运农场中奖规则 35选7对奖 广东快乐十分最新开 新疆35选7开奖走势图 极度性感黄色片 如何收集股票数据 欢乐来斗牛棋牌 麻将来了个人中心在哪 中杠麻将技巧口诀 财神爷网站资料