Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Access custom chart autoformats
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++Hello,
I want to access the available user-defined chart formats. I will present the names of the formats to the user in a list for him/her to choose one. I found a post here that provided sample code that loaded the xlusrgal.xls file (where the user-defined formats are stored) into a workbook, then iterates through the charts in that workbook. This works fine except that the contents of the file briefly flash onto the screen until I can set it invisible. Is there any other way of accessing the names of the format or of loading the file without it flashing on the screen? There are methods available for adding and deleting formats, I would think there should be methods/properties for iterating through the formats. Below is the code I have for loading and going through the xlusrgal file (just adding the names to a string instead of a listbox for now). strUsrGalFile = Application.UserLibraryPath & _ "..\Excel\XLUSRGAL.XLS" If (Dir(strUsrGalFile) < "") Then Workbooks.Open strUsrGalFile, ReadOnly:=True With Workbooks("xlusrgal.xls") .Windows(1).Visible = False For i = 1 To .Charts.Count strUsrFormats = strUsrFormats & .Charts(i).Name & _ vbNewLine Next i MsgBox .Charts.Count & " charts" & vbNewLine & _ strUsrFormats .Close False End With End If Thanks much, John |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Access custom chart autoformats
To avoid flashing:
Application.ScreenUpdating = False Workbooks.Open strUsrGalFile, ReadOnly:=True Application.ScreenUpdating = False You can only delete or apply formats if you know their names ahead of time. I don't think you can access the user defined chart types without opening the user gallery workbook. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "John Shell" wrote in message ... ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++Hello, I want to access the available user-defined chart formats. I will present the names of the formats to the user in a list for him/her to choose one. I found a post here that provided sample code that loaded the xlusrgal.xls file (where the user-defined formats are stored) into a workbook, then iterates through the charts in that workbook. This works fine except that the contents of the file briefly flash onto the screen until I can set it invisible. Is there any other way of accessing the names of the format or of loading the file without it flashing on the screen? There are methods available for adding and deleting formats, I would think there should be methods/properties for iterating through the formats. Below is the code I have for loading and going through the xlusrgal file (just adding the names to a string instead of a listbox for now). strUsrGalFile = Application.UserLibraryPath & _ "..\Excel\XLUSRGAL.XLS" If (Dir(strUsrGalFile) < "") Then Workbooks.Open strUsrGalFile, ReadOnly:=True With Workbooks("xlusrgal.xls") .Windows(1).Visible = False For i = 1 To .Charts.Count strUsrFormats = strUsrFormats & .Charts(i).Name & _ vbNewLine Next i MsgBox .Charts.Count & " charts" & vbNewLine & _ strUsrFormats .Close False End With End If Thanks much, John |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Access custom chart autoformats
Thanks a lot, Jon. I thought I looked through all of the properties
and methods of Application, but somehow managed to miss that one. Excel VBA isn't exactly my forte (I'm mainly a C++ person), so the help is greatly appreciated. John Shell On Fri, 16 Feb 2007 13:06:21 -0500, "Jon Peltier" wrote: To avoid flashing: Application.ScreenUpdating = False Workbooks.Open strUsrGalFile, ReadOnly:=True Application.ScreenUpdating = False You can only delete or apply formats if you know their names ahead of time. I don't think you can access the user defined chart types without opening the user gallery workbook. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 is missing Built-In Custom Chart Types in Chart Wizard | Charts and Charting in Excel | |||
Excel 2003 is missing Built-In Custom Chart Types in Chart Wizard | Setting up and Configuration of Excel | |||
How do I color code a Pivot Table - not standard Autoformats? | Excel Discussion (Misc queries) | |||
Autoformats in Excel 2002 | New Users to Excel | |||
Excel2002 autoformats dates, | Excel Programming |