一个关于MSChart图表控件的比较难的问题，大家一起研究研究，多谢帮忙！

Question

如何让MSChart图表生成黑色的周边,如饼图的周边有一个黑色的圆，每个扇形的周边有两条黑色的半径！

Answer 1

msc为mschart控件
Private Sub jf_person_num()
Dim txtSql, Msgtext As String
Dim rs As New ADODB.Recordset
Dim pTitle, pTarr() As StringpTitle = "已交费,未交费"
pTarr() = Split(pTitle, ",")
Dim fdnum(1) As Double
For i = 0 To 1
    txtSql = "select count(*)  from 费用处理 where 交费情况='" & pTarr(i) & "' and  substring(ltrim(操作时间),1,7)='" & Format(Date, "yyyy-mm") & "'"
    Set rs = ExeSQL(txtSql, Msgtext)
    If rs.EOF And rs.BOF Then
       fdnum(i) = 0
    End If
    fdnum(i) = TNum(rs(0))
Next i
          '--------已交费人数，未交费人数
          With msc(3)
              .RowCount = 1
              .ShowLegend = True
              .ColumnCount = 2
              .Row = 1
              .Column = 1
              .RowLabel = pTitle & "人数(" & fdnum(0) + fdnum(1) & "人)"
              For i = 0 To 1
                 .Column = i + 1
                 .ColumnLabel = pTarr(i) & "人数(" & fdnum(i) & "人)"
                 .Data = fdnum(i)
              Next i
              .Refresh
          End With
Set rs = Nothing
End Sub

Answer 2

如果用vb默认的mschart控件，是不可能实现你所说的效果的，你可以用ms office中的控件来实现（自己调用office写一个自定义控件），不过，这必须要有office环境