返回列表 上一主題 發帖

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

[發問] "引數不為選擇性(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

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

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題