在Excel中,不能簡單的步驟,做到這一點。您在Excel中的唯一選項是手動更改每列的顏色或按點改變顏色,您可以看到here。我認爲通過VBA代碼你可以到達那裏。我想推薦使用Microsoft ASP.NET built-in chart control。它會給你很多定製的可能性。我會嘗試發佈一個工作示例。
編輯:
只是得到了一個工作示例:
這是aspx頁面代碼:
<%@ Page Title="Home Page" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true"
CodeBehind="Default.aspx.cs" Inherits="WebApplication2._Default" %>
<%@ Register assembly="System.Web.DataVisualization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" namespace="System.Web.UI.DataVisualization.Charting" tagprefix="asp" %>
<asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent">
</asp:Content>
<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
<asp:Chart ID="Chart1" runat="server" Width="300px">
<Series>
<asp:Series Name="Series1" ChartArea="ChartArea1" MarkerSize="1">
<Points>
<asp:DataPoint XValue="1" YValues="1" />
<asp:DataPoint XValue="2" YValues="2" />
<asp:DataPoint XValue="3" YValues="3" />
<asp:DataPoint XValue="4" YValues="3" />
<asp:DataPoint XValue="5" YValues="2" />
</Points>
</asp:Series>
</Series>
<ChartAreas>
<asp:ChartArea Name="ChartArea1">
<AxisX Interval = "1"></AxisX>
</asp:ChartArea>
</ChartAreas>
</asp:Chart>
</asp:Content>
這是我實現了後臺代碼 - 不防彈,因爲它需要更多的測試...
public partial class _Default : System.Web.UI.Page
{
private static Dictionary<System.Drawing.Color, double> dictionary =
new System.Collections.Generic.Dictionary<System.Drawing.Color, double>();
private Color CreateRandomColor()
{
Random randonGen = new Random();
Color randomColor = Color.FromArgb(randonGen.Next(255), randonGen.Next(255), randonGen.Next(255));
return randomColor;
}
protected void Page_Load(object sender, EventArgs e)
{
FormatChart();
}
private bool IsColorUsed(Color color)
{
return dictionary.Any(kvp => kvp.Key == color);
}
private void FormatChart()
{
foreach (var point in Chart1.Series[0].Points)
{
// Point with same Y value already exist?
var sameYValue = dictionary.Any(kvp => kvp.Value == point.YValues.First());
if (sameYValue)
{
//Getting the Y point...
var yValue = dictionary.FirstOrDefault(kvp => kvp.Value == point.YValues.First());
// Applying same color...
point.Color = yValue.Key;
}
else // Different Y value
{
Color color = CreateRandomColor();
// Getting a new Color that isn't used yet...
while (IsColorUsed(color))
{
color = CreateRandomColor();
}
point.Color = color;
dictionary.Add(color, point.XValue);
}
}
}
}
這是結果圖表:
alt text http://www.freeimagehosting.net/uploads/22d240b0e0.png
你爲什麼要條形圖如果「所有酒吧必須是相同的高度。」 ?? – 2010-07-12 02:53:42