2015-12-07 2 views
0

Что такое синтаксис для добавления всплывающей подсказки к IXLCell в IXLWorksheet? Пытаюсь этот подход, но он не работает ..........Добавление всплывающей подсказки к IXLCell в IXLWorksheet

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" 

ответ

0

Это работает, но есть, вероятно, более элегантный способ сделать это, как упаковка размер комментарий коробки, а не установка размеров вручную

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 

 Смежные вопросы

  • Нет связанных вопросов^_^