返回列表 上一主題 發帖

[發問] "引數不為選擇性(OPTIONAL)"之執行階段錯誤

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-8-15 13:33 | 顯示全部帖子

[發問] "引數不為選擇性(OPTIONAL)"之執行階段錯誤

DEAR ALL大大
1.如圖一,新版本EXCEL執行後秀出 "引數不為選擇性(OPTIONAL)"之執行階段錯誤
1.1 請問是要修改 VAB內容嗎??如何修改??  OR
1.2 請問是與設定引用項目有關嗎??何者要開啟??
2.煩不吝賜教  THANKS*10000

圖一
Sub printgif()
    ActiveWindow.Zoom = 100
    Range("A1").Select
    Dim rngCopy As Range
    Set rngCopy = Sheet1.Range("A1:C5")
    rngCopy.CopyPicture Format:=xlBitmap
    With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
        .Paste
        .Export Filename:="" & Sheet2.Range("A1") & "", FilterName:="GIF"
        .Parent.Delete
    End With
    ActiveWindow.Zoom = 75
End Sub
收藏 分享
羅

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2022-8-16 13:35 | 顯示全部帖子
DEAR ALL 大大
經研究
With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
加上0,0,…就可以了
With ActiveSheet.ChartObjects.Add(0,0 , rngCopy.Width, rngCopy.Height).Chart
看來2010以上版本不支援空白引數
THANKS*10000
羅

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題