Data z v kontingenční tabulky jako komentář

[PetrVanek]

Zdravím,

potřeboval bych poradit (jestli to vůbec jde), jak vložit do kontingenční tabulky k určitým hodnotám data z db ve formě komentáře buňky.

Díky

[Reklama]

[navstevnik]

Nejspis bude nutno pouzit VBA.
pokud vyresis adresaci bunekv tabulce a zdroj komentaru, pak pro vlozeni komentare (uprav si dle potreby) pouzij nasledujici modelovou proceduru:

Kód: Vybrat vše

Sub VlozKomentarTvar() ' zmena zakladniho tvaru na vybrany (napr.: oblak)
Dim Cell As Range
  Set Cell = Worksheets("list2").Range("i8")
  With Cell
    Cell.ClearComments ' odstrani pripadny komentar
    .AddComment ' .AddComment "123456"
    With .Comment
      .Visible = True
      .Shape.TextFrame.AutoSize = True
      .Shape.Select True
      With Selection.ShapeRange
        .AutoShapeType = msoShapeCloudCallout ' oblak
        .Adjustments.Item(1) = -0.0938 ' uprava navazani oblaku na znacku komentare
        .Adjustments.Item(2) = 0.1757
      End With
      .Text Text:="123456" & Chr(10) & "fdfgdfgdfgdf" & Chr(10) & " sdfkjslfkd" ' text komentare
      .Shape.Select False
      .Visible = False
    End With
  End With
End Sub