🚀 go-pugleaf

Użytkownik "JS" <bsj@poczta.onet.pl> napisał w wiadomości
news:4353c1f0$0$5442$f69f905@mamut2.aster.pl...
> Jak odczytać współrzędne klikniętego punktu na obrazku (*.eps)
> wstawionego na arkusz Excela? wygląda na to,że zdarzenie MouseDown nie
> jest w tym przypadku generowane. Chciałbym w odniesieniu do tych
> współrzędnych dorysować jakieś linie.
>   Może macie jakieś inne pomysły, jak coś domalować w konkretnym miejscu
> tego obrazka (jego położenie może się zmieniać)?

Nie wiem wprawdzie co to ten format *.eps, ale z normalnymi obrazkami jedyna
możliwość jaka mi się kojarzy to wykorzystanie wykresu jako przechowalni
takiego obrazka. Musisz zrobić w ten sposób:
1. Wybierz z paska narzędzi "Standartowy" polecenie "Kreator wykresów".
2. Pokaże Ci kreator wykresów i od razu w pierwszym kroku kliknij na
"Zakończ".
3. W arkuszu pojawi pusty wykres. Zaznacz ten wykres i odpwiednio sformatuj
jego obramowanie, a następnie wklej do niego obraz.
4. Przejdź do Edytora VB i wybierz polecenie menu Insert -> Class module i w
środku tego modułu wpisz nastepujący kod:

Public WithEvents a As Chart

Private Sub a_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x
As Long, ByVal y As Long)
  'tutaj jakiś kod wykorzystujący współrzędne x i y
End Sub

5. Wybierz polecenie menu Insert -> module i do niego wpisz taki kod:

Public b As New Class1

6. Otwórz moduł Thisworbook i wpisz do niego taki kod:

Private Sub Workbook_Open()
  Set b.a = Worksheets("arkusz1").ChartObjects(1).Chart
End Sub

7. Na końcu zakmnij skoroszyt i otwórz go ponownie albo uruchom procedurę
Workbook_Open.


-- 
Pozdrowienia
pxd74