VBGood網站全文搜索 Google

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

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 469|回復: 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, 2019-8-1 00:52

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
守车人游戏