<div>
You would have to upload a sample excel file to understand and work on the problem.
</div>


<div>
BTW Please delete your other question to eliminate any confusion.
</div>


<div>
Please find attached<br />
<a href="https://filedb.experts-exchange.com/incoming/2016/09_w36/1114636/VBA.xlsx" target="_blank" class="file-inline" title="VBA.xlsx (20 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>VBA.xlsx</a>
</div>


VBA.xlsx

VBAv1.xlsm

<div>
Thank you so much for your help!!!!<br />
you are an expert!<br />
&nbsp;<br />
I am very appreciate your help!<br />
<br />
it works!!!<br />
Could you please let me know,is it possible to add also the Name of the product?<br />
<br />
For example,when i double clicked on the product,the Color Change and Shows on the graph,is it possible also to add the Name of the choosing product on the upp of the column ?
</div>


<div>
yes,please.only for choosing product
</div>


<div>
then try<br />

<pre><code class="code-10 nolinks" id="code-20-41779754-1"><span>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)</span>
<span></span>
<span>Set myRng = ActiveSheet.PivotTables(1).RowRange.Resize(ActiveSheet.PivotTables(1).RowRange.Rows.Count - 2).Offset(1)</span>
<span></span>
<span>Set SerCol = ActiveSheet.Shapes(1).Chart.SeriesCollection(1)</span>
<span>ActiveSheet.Shapes(1).Chart.ClearToMatchStyle</span>
<span>On Error Resume Next</span>
<span>SerCol.DataLabels.Delete</span>
<span>On Error GoTo 0</span>
<span>If Not Intersect(Target, myRng) Is Nothing Then</span>
<span>    res = 0</span>
<span>    On Error Resume Next ' find corresponding XValue</span>
<span>    res = WorksheetFunction.Match(Cells(Target.Row, 1), SerCol.XValues, 0)</span>
<span>    On Error GoTo 0</span>
<span>    If res &lt;&gt; 0 Then ' if found</span>
<span>        With SerCol.Points(res).Format.Fill</span>
<span>            .Visible = msoTrue</span>
<span>            .ForeColor.RGB = RGB(255, 0, 0)</span>
<span>            .Solid</span>
<span>        End With</span>
<span>        SerCol.Points(res).ApplyDataLabels</span>
<span>        SerCol.Points(res).DataLabel.ShowCategoryName = True</span>
<span>        SerCol.Points(res).DataLabel.ShowValue = False</span>
<span>    End If</span>
<span></span>
<span>Else</span>
<span>  '  ActiveSheet.Shapes(1).Chart.ClearToMatchStyle</span>
<span>End If</span>
<span>End Sub</span>
</code></pre>
<a href="https://filedb.experts-exchange.com/incoming/2016/09_w36/1114672/VBAv2.xlsm" target="_blank" class="file-inline" title="EE (40 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>VBAv2.xlsm</a>
</div>


VBAv2.xlsm

<div>
excelent!!!!!<br />
<br />
Thank you very much!!!
</div>


<div>
Dear All,<br />
Could you please help me to do the same ,but with a simple Chart and data in Excel?<br />
<br />
how can i do automatically showing the Color and Name of the product,without Pivot table?<br />
<br />
I am very appreciate your help!<br />
<br />
Thank you very much for your futher answers and comments!!!<br />
<a href="https://filedb.experts-exchange.com/incoming/2016/09_w36/1114877/Excel-VBA.xlsx" target="_blank" class="file-inline" title="Excel-VBA.xlsx (11 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Excel-VBA.xlsx</a>
</div>


Excel-VBA.xlsx

<div>
Hi,<br />
<br />
Could you open a new question?<br />
<br />
Regards
</div>


<div>
<div class="content wysiwyg-content">
Dear All,<br />
<br />
First of all I would like to thank you for further comments and reading my question!<br />
I am really Need in your help!<br />
<br />
I created a Chart by using Pivot table.The Chart Shows the Name of the products and Revenue for each of this products.<br />
<br />
Could you please help me,how can i do in VBA or by another method,I want to choose the one product,press on it,and it will be automatically Shows on the graph by changing Color only of the bar of this specific product ?<br />
<br />
for example,all columns are Grey,then i will choose on product,and this product will be automatically Shows by red on the chart<br />
<br />
I am really appreciate your help!I am very tried to explain...
</div>
</div>


Dear All,

First of all I would like to thank you for further comments and reading my question!
I am really Need in your help!

I created a Chart by using Pivot table.The Chart Shows the Name of the products and Revenue for each of this products.

Could you please help me,how can i do in VBA or by another method,I want to choose the one product,press on it,and it will be automatically Shows on the graph by changing Color only of the bar of this specific product ?

for example,all columns are Grey,then i will choose on product,and this product will be automatically Shows by red on the chart

I am really appreciate your help!I am very tried to explain...

VBA color chart bars

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.

Programming

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.