標題: [發問] "引數不為選擇性(OPTIONAL)"之執行階段錯誤 [打印本頁]

---

作者: rouber590324    時間: 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    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)