vbaexcelexcel-charts
Subscript out of range when copying charts from excel to word
Hi i'm facing a subscript out of range error when I tried to copy a chart from excel sheet to word document. I checked the worksheet name it seems to be fine. I tried changing to ThisWorkbook.Sheets(wsname) but i received an application define type error. How do I go about resolving this issue.
With ThisWorkbook.Worksheets(wsName)
.ChartObjects(1).Activate
ActiveChart.ChartArea.Copy
End With
The name of the worksheet I'm trying to reference
Solution
I have finally figured out what's the problem.
Since I'm referencing a chartsheet and not a worksheet, I have to use .Charts instead of .Worksheets. In addition since it is a chartsheet, the chartsheet itself is a chart object, hence .ChartObjects(1) is not required, only .ChartArea.Copy
Correct Code:
With ThisWorkbook.Charts(wsName)
.ChartArea.Copy
End With
- Excel VBA Findfirst equivalent between spreadsheets?
- Excel VBA: Use MsgBox if Replace finds nothing to replace
- How do I retrieve the text of a cell comment
- Date format issue when I try to find the first occurrence of names with associated dates
- how to extract contents from comment to cell in EXCEL VBA?
- Save all Outlook mailitems to disk and move to shared mailbox with VBA
- Difference between .Delete and .Clear in Excel VBA?
- Merge two cells keeping/adding formatting
- GetMyFeesEstimate API Amazon vba
- Excel fill numbers within a range
- VBA isString vs isNumeric
- Keep focus on textbox after pressing enter
- VBA Duplicate column value to an unbound field
- How to use a cell range to color another one?
- Macro Help: Workbook to New Doc Copying Only the Cell Values
- Getting a Resultset from a SQL Server Stored Proc in Access
- Excel VBA Autofilter Values Not Equal To Asterisk (*)
- Check read only for PDF file from SolidWorks
- How do I check If autosave is on and then switch it back on if it is not?
- How can I call ActivateKeyboardLayout from 64bit Windows Vista using VBA
- VBA Excel Cannot open external workbook
- Why I cant start Remote Assistance (msra.exe) via vba "shell" since Win 11/Office 365 update?
- Excel VBA to hide rows if more than 10 blanks
- Excel to Word VBA The formatting does not apply to the correct text
- Select some adjacent and non-adjacent column ranges and save to pdf as if they were all adjacent
- What are the benefits and risks of using the StrPtr function in VBA?
- Macro to update all fields (including ask fields) without the ask field prompt popping up
- Word VBA: Search for 13-digit UNIX Timestamp and Add Conventional Time Format After Timestamp - Loop Isn't Working As Intended
- How to read the cell value in a table control?
- How to get only visible category labels of excel chart via vba code