Gráfico

[Guest - Rafael -]

Bom Dia Pessoal

Preciso alinhar as colunas de um gráfico criado em ASP, usando o componente OWC. Mas não sei como fazer. Na verdade o gráfico tem 4 colunas e uma linha. Mas cada barra tem que ter um espaço entre si. os espaçõs coloquei mas fica desalinhado.

Desde já agradeço

[fantasma]

posta o cod

[Guest o Código é esse Fantasma]

<%

path=left(Request.ServerVariables("PATH_INFO"),InstrRev(Request.ServerVariables("PATH_INFO"),"/"))

path=right(path,len(path)-1)

if InStr(path,"/") then

'Response.write(path)

path=left(path,len(path)-1)

end if

Dim catnom(), valor(), caminho

caminho="/"&path

With Server.CreateObject("OWC.Chart")

set c = .constants

With .charts.add

.HasTitle=True

if .HasTitle then

.Title.Caption = "Gráfico da Pergunta 1"

.Title.Font.Size = 10

.Title.Font.Name = "Verdana"

.Title.Font.Bold = True

.Title.Font.Italic = False

.Title.Font.Underline = False

end if

.HasLegend = true

if .HasLegend then

.Legend.Font.Size = 10

.Legend.Font.Name = "Verdana"

.Legend.Font.Bold = False

.Legend.Font.Italic = False

.Legend.Font.Underline = False

end if

tipo=6

Select Case tipo

Case 1

.Type = c.chChartTypeArea

Case 2

.Type = c.chChartTypeAreaStacked

Case 3

.Type = c.chChartTypeBarClustered

Case 4

.Type = c.chChartTypeBarStacked

Case 5

.Type = c.chChartTypeBubble

Case 6

.Type = c.chChartTypeColumnClustered

Case 7

.Type = c.chChartTypeColumnStacked

Case 8

.Type = c.chChartTypeLine

Case 9

.Type = c.chChartTypeLineMarkers

Case 10

.Type = c.chChartTypeLineStacked

Case 11

.Type = c.chChartTypePie

Case Default

.Type = c.chChartTypeArea3D

.Type = c.chChartTypeBar3D

.Type = c.chChartTypeColumn3D

.Type = c.chChartTypeColumnStacked3D

.Type = c.chChartTypeCombo

.Type = c.chChartTypeCombo3D

End Select

x=8

ReDim catnom(x), valor(x)

catnom(0) = "Totalmente Satisfeito"

valor(0) = 10

With .seriescollection.add

.caption = "Totalmente Satisfeito"

.setdata c.chdimcategories,c.chdataliteral, catnom

.setdata c.chdimvalues,c.chdataliteral, valor

End With

catnom(0) = "Satisfeito"

valor(0) = 20

With .seriescollection.add

.caption = "Satisfeito"

.setdata c.chdimcategories,c.chdataliteral, catnom

.setdata c.chdimvalues,c.chdataliteral, valor

End With

catnom(0) = "Insatisfeito"

valor(0) = 30

With .seriescollection.add

.caption = "Insatisfeito"

.setdata c.chdimcategories,c.chdataliteral, catnom

.setdata c.chdimvalues,c.chdataliteral, valor

End With

catnom(0) = "Totalmente Insatisfeito"

valor(0) = 40

With .seriescollection.add

.caption = "Totalmente Insatisfeito"

.setdata c.chdimcategories,c.chdataliteral, catnom

.setdata c.chdimvalues,c.chdataliteral, valor

End With

End With

.border.color = c.chColorNone

Set arquivo=Server.CreateObject("Scripting.FileSystemObject")

arquivo=arquivo.GetTempname & ".gif"

.ExportPicture Server.MapPath(caminho) &"/"& arquivo, "gif", 800, 400

'Response.Write "<img src="""&arquivo&""">"

End With

%>

[fantasma]

você tenta colocar entre as barras

response.write ("&nbsp;")