napisał: darektci
postów: 3
 umieszczony:
9 maja 2007
22:05
|
|
| Temat z paskiem jest jak najbardziej rozwiązaniem problemu, stosuje go z powodzeniem w innych arkuszach i być może będe zmuszony zastosować go również w tym przypadku, ale wracając do tematu znikających przycisków to wstawiłem je dziś wszystkie od nowa, od nowa również udostępniłem skoroszyt, rozmiar pliku oczywiście zmniejszył sie z 8 na 2mb i cały dzień wszytko śmigało bez zarzutu. Zastanawiam się czy rozmiar pliku może mieć znaczenie w tym przypadku, w sieci pracują maszyny słabsze z officem xp (rocznik 2000) i nowsze mocniejsze z officem 2003 i 2007 ogólnie jednocześnie z pliku korzysta od 8 do 12 osób nigdy problem sie nie pojawiał do teraz, może słabsze komputery z mniejszą ilością pamięci RAM nie radzą sobie z obsługa takiego dużego pliku, przyciski na nich znikają a po zapisie przez użytkownika takiego komputera u reszty mamy ten sam problem. Czy ktoś może wypowiedzieć sie na temat słuszności tej teorii ? Pozdrawiam |
|
|
napisał: adam7d
postów: 2
umieszczony:
9 maja 2007
21:31
|
|
Oto prosty przykład który pozwoli budować paski narzędziowe:
Sub Dodajpasek()
Dim Nowyprzycisk As CommandBarControl
Dim Tpasek As CommandBar
' Utworzenie paska narzędzi
On Error Resume Next
CommandBars("TwójPasekNarzędzi").Delete
On Error GoTo 0
Set Tpasek = CommandBars.Add
With Tpasek
.Name = "TwójPasekNarzędzi"
.Visible = True
End With
' Ponizej tworzenie przycisku tylko z napisem - wlasciwosc Style = msoButtonCaption
Set Nowyprzycisk = CommandBars("TwójPasekNarzędzi").Controls.Add _
(Type:=msoControlButton)
With Nowyprzycisk
.Style = msoButtonCaption
.FaceId = 351
.OnAction = "JakiesMacro1"
.Caption = "Macro 1"
End With
' Ponizej tworzenie przycisku tylko z ikonom - wlasciwosc Style = msoButtonIcon ikona to FaceId = 351
' Jeżeli BeginGroup = True to przed kontrolką wyświetla się seperator
Set Nowyprzycisk = CommandBars("TwójPasekNarzędzi").Controls.Add _
(Type:=msoControlButton)
With Nowyprzycisk
.BeginGroup = True
.Style = msoButtonIcon
.FaceId = 351
.OnAction = "JakiesMacro2"
.Caption = "Macro 2"
End With
' Ponizej tworzenie przycisku z ikonom i napisem - wlasciwosc Style = msoButtonIconAndCaption to FaceId = 59
Set Nowyprzycisk = CommandBars("TwójPasekNarzędzi").Controls.Add _
(Type:=msoControlButton)
With Nowyprzycisk
.BeginGroup = True
.Style = msoButtonIconAndCaption
.FaceId = 59
.OnAction = "JakiesMacro3"
.Caption = "Macro 3"
End With
End Sub
Sub usunpasek()
On Error Resume Next
CommandBars("TwójPasekNarzędzi").Delete
End Sub
' Przykladowe macra przypisane do przyciskow paska
Sub JakiesMacro1()
MsgBox "Właśnie uruchomiłeś makro JakiesMacro1"
End Sub
Sub JakiesMacro2()
MsgBox "Właśnie uruchomiłeś makro JakiesMacro2"
End Sub
Sub JakiesMacro3()
MsgBox "Właśnie uruchomiłeś makro JakiesMacro3"
End Sub
' Na koniec pokazanie paska przy aktywnym skoroszycie i ukrycie go przy nie aktywnym oczywiście kod ten wklejamy do ThisWorkbook
Private Sub Workbook_Activate()
Call Dodajpasek
End Sub
Private Sub Workbook_Deactivate()
Call usunpasek
End Sub
Pozdrawiam i miłej zabawy życzę |
|
|
napisał: wally2
postów: 59
umieszczony:
9 maja 2007
18:14
|
|
Możesz napisać jak programowo zrobić pasek narzędziowy.....
Chętnie bym to zastosował u siebie....
Choć mi przyciski nie znikają, ale kto wie.... jak zacznę zmykać to je zaskoczę.... ;) |
|
|
napisał: adam7d
postów: 2
umieszczony:
9 maja 2007
17:18
|
|
Też to przerabiałem nie udało mi się rozwiązać tematu dlaczego przyciski znikają ale zamiast tego zacząłem stosować pasek narzędziowy tworzony przy otwarciu skoroszytu i usuwany po jego zamknięciu za pomocą VBA od tej pory mam spokój nic nie znika  . |
|
|
napisał: darektci
postów: 3
umieszczony:
8 maja 2007
21:27
|
|
Witam
Od dłuższego czasu używam skoroszytu udostępnionego rejestracją historii z którego jednocześnie korzysta kilka osób w sieci, umieściłem w nim kilka przycisków z którymi powiązane są różne makra.Działało wszystko długo (kilkanaście miesięcy), od jakiegoś jednak czasu przyciski, które stały się wręcz niezbędne do pracy po prostu znikają. Początkowo wyłączyłem zapisywanie historii w pliku myśląc że rozmiar (kilkanaście Mb), który powstaje przez rejestrację historii powoduje takie problemy, na jakiś czas pomogło, ale problem i tak powrócił. Pomimo wyłączonej rejestracji historii rozmiar pliku i tak staje sie coraz większy( danych raczej nie przybywa, ale po wyłączeniu i włączeniu udostępniania spada o ok 75%. Nie wiem czy to ma wogóle jakiś związek, ale nic ciekawego nie przychodzi mi do głowy. Jeśli ktoś ma jakiś ciekawy pomysł albo sugestię to proszę o pomoc. Dzięki |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
