Excel: Naprawiono pozycję przycisku

Question

Potrzebuję pomocy przy dołączaniu przycisku Excel/VBA na arkuszu Excel. Potrzebuję go, aby pozostać w tej samej pozycji na ekranie niezależnie od tego, jak przewijam lub powiększam. Najlepiej, potrzebuję tego na dole po lewej lub prawej stronie ekranu.

Próbowałem dodać przycisk. Następnie kliknąłem prawym przyciskiem myszy. Kliknięto Formanty formatowania -> Właściwości -> wybrane Nie przesuwaj ani nie zmieniaj wielkości komórek. Czy brakuje mi czegoś, co sprawia, że ​​to nie działa?

Dzięki!

Answer 1

Oto pomysł, który przedstawiłem wcześniej dzisiaj :) Zazwyczaj możemy uzyskać Floating User Form, ustawiając właściwość Modal formularza na 0, który jest rzeczywiście stanem Modeless.

Podstawowe Punkty do rozważenia:

• Look & wyczuciem formy, aby wyglądać jak przycisk (nie pokazują tytułowy bar/nie Resizable/ Ukryte przycisk Zamknij etc)
• Ustawianie pozycji przycisk
• które zdarzenie powinno wywołać formularz przycisku (WorkBook Otwórz)
• Co byś zrobił z Form Initialize Event
• Whcih Zdarzenia powinny zachować to trzymać się tej samej pozycji żywcem

kolejne punkty do rozważenia:

• Możecie tylko chcesz zachować ten przycisk vissible dla skoroszytu, na którym pracujemy, a po otwarciu inny przykład skoroszycie, czy nadal chcą trzymać przycisk

• Jeśli zminimalizować wystąpienie Excel okno, jak masz zamiar zarządzać stan przycisku i przechowywać go widoczne

• Post about keep displaying a form even the workbook is minimized.

• One other great reference I happend to see, (little bit technical) but worth the shot - at least to get to know the certain properties/methods that you could make use: Extending VBA User Form Control.

W artykule zawierać następujące informacje i proszę zwrócić uwagę na ostatnią linię, jak również :)

Dają Ci dostęp do funkcji, które nie są dostępne lub z VBA obiekty (UserForms, Skoroszyty itp.), które składają się na projekt VBA. Gdy wywołujesz interfejs API, omijasz VBA i wywołujesz bezpośrednio w systemie Windows. Oznacza to, że nie otrzymujesz mechanizmów bezpieczeństwa, takich jak sprawdzanie typu, które zwykle zapewnia VBA. Jeśli przekażesz nieprawidłową wartość do API lub (bardzo często popełniany błąd) użyjesz parametru ByRef zamiast parametru ByVal, najprawdopodobniej całkowicie i natychmiast zawiesisz program Excel, a stracisz całą niezapisaną pracę. Zaleca się, aby do czasu upewnienia się, że wywołania API są trwałe, zapisujesz swoją pracę przed wywołaniem funkcji API.

Answer 2

Wiem, że ten post jest stary, ale dla każdego może być przydatny. Właściwość VisibleRange ActiveWindow może rozwiązać ten problem.Użyj czegoś takiego:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    With ActiveSheet.OLEObjects("MY_BUTTON'S_NAME") 
     .Top = ActiveWindow.VisibleRange.Top + ActiveWindow.VisibleRange.Height - 5 
     .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 5 
    End With 
End Sub