Question

寻找一些指导。我创建了统计图表，但也列出了某些类别的前5名WIP。

我遇到的麻烦就是在图表上写文字框。我已经设法使用插入选项卡上的标准文本框，但没有使用ActiveX框，这是我需要的滚动条

这是我编写的函数，用于将字符串写入所有文本框。

Function Top5HeldCell(aSheet)

Dim row As Integer
Dim commentBox As TextBox


row = 12

For i = 4 To GetNumberOfEntries(aSheet, "A")

    If Sheets(aSheet).Range("S" & i).Value <> "" Then

        If Sheets(aSheet).Range("T" & i).Value = "" Then

            rmNumber = Sheets(aSheet).Range("A" & i).Value
            partNumber = Sheets(aSheet).Range("B" & i).Value
            serialNumber = Sheets(aSheet).Range("C" & i).Value
            ncNumber = Sheets(aSheet).Range("D" & i).Value
            currentWIP = Sheets(aSheet).Range("W" & i).Value
            Comments = Sheets(aSheet).Range("I" & i).Value

            If row <= 16 Then

                ActiveChart.Shapes.Range(Array("rmNumber" & row)).Select
                Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = rmNumber

                ActiveChart.Shapes.Range(Array("partNumber" & row)).Select
                Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = partNumber

                ActiveChart.Shapes.Range(Array("serialNumber" & row)).Select
                Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = serialNumber

                ActiveChart.Shapes.Range(Array("ncNumber" & row)).Select
                Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ncNumber

                ActiveChart.Shapes.Range(Array("WIPTime" & row)).Select
                Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = currentWIP
                ' This works using standard textboxes
                'ActiveChart.Shapes.Range(Array("comment" & row)).Select
                'Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Comments

                ' here I'm trying to use ActiveX boxes
                Charts("Statistics Chart").OLEObjects("comment" & row).Object.Text = ""

                row = row + 1

            End If

        End If

    End If

Next i

End Function

我似乎得到错误＆＃39;无法获取图表类的OLEObjects属性。

从使用我的nogging我希望这与图表不支持此功能有关。有没有已知的工作或者我真的被卡住了？

干杯

将值写入图表表格上的文本框

0 个答案: