Question

在IXLWorksheet中向IXLCell添加工具提示的语法是什么？我正在尝试这种方法，但它不起作用..........

    Dim xlDoc As New XLWorkbook()
    xlDoc.AddWorksheet(filename)
    Dim xlWS As IXLWorksheet = xlDoc.Worksheets(0)
    xlWS.Range("A1", "I177").Style.Font.SetFontName("Arial")
    xlWS.Range("A1", "I177").Style.Font.SetFontSize(10)
    xlWS.Range("A1", "I177").Style.Fill.BackgroundColor = XLColor.FromArgb(253, 233, 217)
    xlWS.Protect().SetSelectLockedCells(False)
    Dim rowInt As Integer = 5
    While rowInt <= 177
        xlWS.Rows(rowInt).Height = 14.25
        xlWS.Rows(rowInt).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Center)
        rowInt = rowInt + 1
    End While


xlWS.Cell("H30").Hyperlink.Tooltip = "Tooltip text string goes here"

Answer 1

这样可行，但可能更优雅的做法就是包装评论框尺寸而不是手动设置尺寸

    xlWS.Cell("H30").Comment.Style.Size.SetHeight(50)
    xlWS.Cell("H30").Comment.Style.Size.SetWidth(50)
    xlWS.Cell("H30").Comment.AddText("Tooltip text 1")
    xlWS.Cell("H30").Comment.AddNewLine()
    xlWS.Cell("H30").Comment.AddNewLine()
    xlWS.Cell("H30").Comment.AddText("Tooltip text 2").Bold = True

在IXLWorksheet中向IXLCell添加工具提示

1 个答案: