| Jak wyświetlić wykres w formularzu? |
|
Problem: Czy jest możliwe aby wyświetlić wykres w formularzu użytkownika? Rozwiązanie: Tak. Trzeba najpierw wyeksportować wykres do pliku, a następnie wypełnić nim kontrolkę Image. ![]() '--------------------------------------------------------------------------------------- ' Procedure : UserForm_Initialize() ' Author : Mariusz Jankowski ' Purpose : Makro ładuje wykres do formularza użytkownika '--------------------------------------------------------------------------------------- ' Private Sub UserForm_Initialize() Dim cht As Chart Dim ws As Worksheet Dim path As String Set ws = ThisWorkbook.ActiveSheet Set cht = ws.ChartObjects(1).Chart With cht path = "C:\" & .Parent.Name & ".JPG" .Export path, "JPG" End With Me.Image1.Picture = LoadPicture(path) End Sub |
|
| Zmieniony ( Wtorek, 22. Wrzesień 2009 21:38 ) |
