| Jak sprawić aby w komentarzu obrazek zmieniał się adekwatnie do wartości komórki? |
|
Problem: Chciałbym aby w zależności od wartości komórki pojawiał sie w jej komentarzu konkretny obrazek. ![]() Rozwiązanie: Możesz według własnych potrzeb zmodyfikować poniższe makro (aby procedura zdarzeniowa zadziałała musisz umieścić zdjęcia w katalogu z plikiem źródłowym, a kod w module właściwego arkusza) Private Sub Worksheet_Change(ByVal Target As Range) Dim cmtKomentarz As Excel.Comment With Range("B2") 'Usuwa komentarz z komorki - dodaje nowy .ClearComments Set cmtKomentarz = .AddComment 'Wstawia zdjecie na podstawie wartosci komorki 'formatuje komentarz With cmtKomentarz .Shape.Fill.UserPicture ThisWorkbook.Path & "\" & .Parent.Value & ".jpeg" .Shape.Height = 150 .Shape.Width = 150 .Visible = True End With End With End Sub |
|
| Zmieniony ( Wtorek, 29. Czerwiec 2010 13:32 ) |
