Userform Graphic displays

[Speedy]

Hi,

I wish I could see the chart sheets in UserForm
I hope for a solution

 

[Deepak]

Hi,

Check this...

http://www.j-walk.com/ss/excel/tips/tip66.htm

http://www.homeandlearn.org/vba_charts_and_user_forms.html

 

[Speedy]

Hi,

I had already tried with: http://www.j-walk.com/ss/excel/tips/tip66.htm
In this procedure, I have no way to see: Grafico1

ActiveChart.ChartArea.Copy

 

[Deepak]

Hi,

Check with attached...

 

[Speedy]

Hi,

I wanted to use the method CopyPicture to view all graphs but this is not possible.
I use save the clipboard

I found an explanation in this link: http://www.codeitive.com/0iNegkXPPg...-excel-worksheets-as-image-in-excel-2003.html

• MSDN - Export method as it applies to the Chart object. to save the clipboard as an Image
• MSDN - CopyPicture method as it applies to the Range object to copy the range as a picture

 

[Hui]

I have a solution and will post this in the next few days



Just tweaking...

 

[Hui]

Ok

See what you think about this


I have removed the Table and simply used Named Formula for the X and Y values, No need to display them unless you really want to

You can type any expression into the Formula Box
as well as set X Min, X max and X Increment values

Set the Temporary directory to something valid or else it will crash

The macro uses some code from Daniel Ferry at ExcelHero.com
http://excelhero.com/

which accesses the Microsoft WIA subsystem
https://msdn.microsoft.com/en-us/library/windows/desktop/ms630368(v=vs.85).aspx

Let me know what you think

 

[Speedy]

Hi, Hui

Very interesting is the formula used.
An example in this link: http://www.vertex42.com/ExcelArticles/evaluate-function.html

Useful the ability to rotate and scale the image that the code provides.


The chart that I attached was just an example, I need to display all the graphics on the sheet.
For charts on the sheet use
http://www.pcreview.co.uk/forums/copy-shape-image-into-image-control-t982606.html

ChartNum = Me.ListBox7.List(Me.ListBox7.ListIndex, 1)
Sheets(ListBox7.Value).Shapes(ChartNum).CopyPicture xlScreen, xlBitmap

With this code it avoids to save 1400 files that I can find in a file Xls Xlsm ecc
I wondered if it was possible to store the graphic chart on the card, I have to use the code you have proposed and to save and load the files of these cards

 

[Hui]

Your test file had 1 chart

If you want more send an appropriate file with appropriate instructions

 

[Speedy]

Hi, Hui

I enclose a sample file with some graphics ...
I wish I could see all 221 graphics in UserForm
With this code, I see only 220

 

[Speedy]

Hi, Hui

Your test file had 1 chart

If you want more send an appropriate file with appropriate instructions

I attach a file with some graphics as an example

I have used both methods to view all graphs present
Tips instructions to improve code search

 

[Hui]

Chart No. 7 on the A worksheet is a picture not a chart

Hi, Hui

I enclose a sample file with some graphics ...
I wish I could see all 221 graphics in UserForm
With this code, I see only 220

 

[Hui]

See attached

I have simplified the WIA code for you

It works well on the 220 charts