应该比较麻烦

双轴双柱图，EXCEL和PowerPoint的图表是支持的

排列图？

这是管理图。很简单的折线图。用不着vb，用EXCEL 就完成了。

vb 竖排文字 可以使用 CreateFont api 来实现，把其中一个参数设为90度，就能达到竖排的效果，不过这样做出来，每个字符都是斜的（一楼图）。

还有一种方法：使用 PolyTextOut  来实现 ，设置每个字符的 X、Y 坐标 达到竖排的效果，

示例：

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hDc As Long, ByVal wFlags As Long) As Long
Private Declare Function GetTextMetricsA Lib "gdi32" (ByVal hDc As Long, lpMetrics As Any) As Long

Private Type POLYTEXT
    X       As Long
    Y       As Long
    cCh     As Long
    lpStr   As Long
    uiFlags As Long
    Rcl(3)  As Long
    pDx     As Long
End Type
Private Declare Function PolyTextOutW Lib "gdi32" (ByVal hDc As Long, pPTxt As POLYTEXT, ByVal cStrings As Long) As Long

Private Sub Command1_Click()
    Call strVertical(10, 0, Me.hDc, "VB竖排文字")
End Sub

Private Sub strVertical(ByVal X As Long, ByVal Y As Long, ByVal hDc As Long, ByVal Text As String)
    Dim sLen        As Long, P As Long, teY As Long, oldAlign As Long, tmHeight As Long, tmExternalLeading As Long
    Dim iPT()       As POLYTEXT
    Dim iStr()      As String
    Dim lpMetrics() As Byte

    oldAlign = SetTextAlign(hDc, 6)

    ReDim lpMetrics(52) As Byte
    Call GetTextMetricsA(hDc, lpMetrics(0))
    Call CopyMemory(tmHeight, lpMetrics(0), 4)
    Call CopyMemory(tmExternalLeading, lpMetrics(16), 4)

    sLen = Len(Text) - 1
    ReDim iPT(sLen) As POLYTEXT
    ReDim iStr(sLen) As String
    For P = 0 To sLen
        iStr(P) = Mid$(Text, P + 1, 1)
        With iPT(P)
            .X = X
            .Y = Y + teY
            .cCh = 1
            .lpStr = StrPtr(iStr(P))
        End With
        teY = teY + tmHeight + tmExternalLeading
    Next
    Call PolyTextOutW(hDc, iPT(0), sLen + 1)
    Call SetTextAlign(hDc, oldAlign)
    Erase lpMetrics(), iPT(), iStr()
End Sub

收到的鲜花

• 风吹过b 于 2023-02-15 17:33 送鲜花  5朵   附言：这个方法可以

请问老师有附件吗？

对,就这个意思,用VB MSChart控件能写吗?

有人来点赞吗，不用API文字也可以竖排。

Private Function Vertical_Horizontal(ByVal nStr As String) As String
    Dim MyStr As String, i As Integer
    Static Vert As Boolean
    For i = 1 To Len(nStr)
        If i < Len(nStr) Then
            MyStr = MyStr + Mid$(nStr, i, 1) & vbCrLf
        Else
            MyStr = MyStr + Mid$(nStr, i, 1)
        End If
    Next
    Vertical_Horizontal = MyStr
    Vert = True
End Function
Private Sub Form_Load()
    Label1.AutoSize = True
    Label1.Caption = "VB让Label标签里的文字竖排"
    Label1.Caption = Vertical_Horizontal(Label1.Caption)
End Sub

大佬,你给的代码图表需要对其中一个柱子的改颜色改如何写啊.

Private Sub Form_Load()
    Randomize Timer
    Dim i As Integer, jls As Integer
    Dim Values(1 To 15, 1 To 3)
    For i = 1 To 15
        Values(i, 1) = "T" & Format(i, "00")
    Next i
   
    For i = 1 To 15

        Values(i, 3) = Rnd * 100
    Next i
    MSChart1.chartType = VtChChartType2dCombination
    MSChart1.Plot.SeriesCollection.Item(1).SeriesType = VtChSeriesType2dLine
    MSChart1.Plot.SeriesCollection.Item(2).SeriesType = VtChSeriesType2dBar
    MSChart1.ChartData = Values
End Sub

不知道、只能统一为一种颜色好像。如红色、绿色、蓝色。