A może by stworzyć kopię tego arkusza z odpowiednim formatowaniem (rozwiązanie Jermora) i w razie potrzeby uruchamiać wydruk z tej kopii lub z oryginału. Wiem jak to uzyskać z użyciem makra, ale zależy mi, żeby ten konkretny dokument nie posiadał makr. Przecież nie musisz trzymać tego makra w konkre...

Chociaż wydaje mi się że wywołanie dwa razy metody Execute nie jest właściwe,bo powinny być utworzone dwie instancje tego samego obiektu, ale po co. Przejdź na nowy LO, będziesz tam miał inspektora obiektów MRI i w nim sprawdź jakie metody ma obiekt Dialog, powinna tam być metoda Visible, ale nie je...

Dwa razy wywołujesz metodę Execute , raz przed Select Case a później w niej, usuń tą pierwszą i dialog pojawi się raz. Nie wiem co planujesz, ale Select Case słuzy do wyboru kiedy mamy wiele opcji tu wystarczy If Then ewentualnie If Then Else . Poza tym wstaw przycisk Anuluj, wspominasz o nim a go n...

czytałem na angielskim forum że może nie działać jak jest ustawiony inny styl jak domyślany, radą na to jest przywrócenie ich przed ustawieniem nowego format->Wyczyść formatowanie bezpośrednie w kodzie będzie to tak: document = ThisComponent.CurrentController.Frame dispatcher = createUnoService(&quo...

Może ten przykład ci pomoże. Sub oDShapeProp Dim oPage 'Page on which to draw Dim oShape 'Shape to insert Dim oDoc oDoc = ThisComponent oPage = oDoc.getDrawPage() oShape = oDoc.createInstance("com.sun.star.drawing.TextShape") oPage.add(oShape) oPositionShape( oShape, 1000, 1500, 3000, 1500...

Czy jest możliwość aby zadany tekst był wpisywany do znajdującego się już w dokumencie kształtu? Jest, ale musisz być pewien do którego bo w pierwszym podejściu masz dostęp tylko do indeksów obiektów dopiero po wywołaniu tego możesz stwierdzić jego nazwę. oDoc = ThisComponent oDrawP = oDoc.getDrawP...

Czy jest możliwe w VBA? Jest, choć nie tak prosto jak przy przeciąganiu. Pętle już masz, dodaj licznik. wydobądź adresy ze zmiennych Col i Row, dodaj do adresów licznik i tak stworzysz nowy adres dla każdej iteracji pętli. Trochę programowania w basicu i to koniec. Takiej prostej metody na wykonani...

W tym przypadku nie jest potrzebne makro, bo:
1. Po przejściu do innego rekordu (poprzedni\następny lub inny), rekord jest zapisywany automatycznie.
2. Jeżeli już chcesz mieć np. przycisk do aktualizacji rekordu to w właściwościach przycisku wybierz odpowiednią akcję i po sprawie.

Użyj metody setFocus Control jest tylko odwołaniem do formantu, musisz dostosować do swoich potrzeb.

Np. tak: =PRAWY(LEWY(B1;ZNAJDŹ("X";B1));DŁ(LEWY(B1;ZNAJDŹ("X";B1)))-SZUKAJ.TEKST("[^\s]+$";LEWY(B1;ZNAJDŹ("X";B1)))+1)&LEWY(PRAWY(B1;DŁ(B1)-ZNAJDŹ("X";B1));ZNAJDŹ(" ";PRAWY(B1;DŁ(B1)-ZNAJDŹ("X";B1)))-1) Rozwiązań na pewno może...

Najpierw użyj funkcji ZNAJDŹ() do określenia pozycji X w ciągu. Później funkcji LEWY() i PRAWY() do spreparowania odpowiednich ciągów. LEWY() zwróci 29,8 na końcu ciągu, a PRAWY() na początku.I teraz użyj formuły z początkowych postów i połącz to co zwrócą, oczywiście jedną formułę musisz przerobić ...

Nie.

Podejrzewam że chodzi o bezwładność systemu, wstawienie spowolniej może pomóc, ale to nie jest dobry pomysł. Złem pomysłem jest też wykorzystanie schowka do tak prostego zadania. Poniżej kod jak to powinno być zrealizowane. Sub test() Dim Doc As Object Dim Sheet As Object Dim SourceCell As Object Di...

Ale aby się wykonało musisz w przycisku przypisać je do "Naciśnięto przycisk myszy" a nie "Wykonaj akcję". Tu się nie zgodzę, aby to udowodnić wstaw sobie nowy przycisk i podepnij pod niego("Wykonaj akcję") jakieś inne makro, chociażby: Sub test() Print "YES"...

Spróbuj tak: Na pewno można to zrobić prościej, ale ja do tego problemu podszedłem tak jak widać.

Z twojego przykładu wynika, że usuwane znaki mają stałą długość, więc wystarczy formuła:

Możesz to zrobić bez makr i jakiś większych zabiegów stosując pewien trik. Załóżmy że dane masz w dwóch kolumnach A i B. W kolumnie A jest np. liczba porządkowa a w B wartości z których maksymalna ma być wyróżniona na wykresie innym kolorem. Skorzystaj z dodatkowego zakresu w którym dane będą za pom...

Mam dla ciebie makro. Wklej sobie do modułu StarBasica, stwórz jakiś skrót i będziesz miał tak jak chcesz. Sub RangesSelect oMulti = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") oCurrentSelection = ThisComponent.getCurrentSelection() oActiveSheet = ThisComponent.Curre...

Spróbuj tego rozwiązania, może spełni twoje wymogi. Kiedyś pobrałem z angielskiego forum, autora nie znam.

Takiego prostego sposobu nie ma, a przynajmniej o takim nie słyszałem. Jest dodatek "Switchboard", ale on nie spełniał moich wymagań, dlatego sam stworzyłem odpowiednie dla mnie rozwiązanie. Jak to działa? Odpalasz bazę i po jej załadowaniu uruchamia się odpowiedni formularz. W moim przypa...

rzy otworzeniu "nowego dokumentu" sytuacja się powtarza, czyli nie mam zapisanego w domyślnych języka polskiego. Muszę znowu ręcznie zmieniać. Co robię nie tak ? Cytat z helpa: Zmiana domyślnych szablonów Po otworzeniu nowego dokumentu, wybierając Plik - Nowy, wyświetlany jest pusty dokum...

Podejrzewam że przyczyną może być zbyt szybkie wykonywanie kodu, wstaw przed kolejnym wysłaniem zadania do drukarki małe spowolnienie.

Innym sposobem jest podczas projektowania formularza użyć formantu Pole Grupy. Formant jest widoczny po wskazaniu przycisku Więcej Formantów. Jest to o tyle lepsze, bo kreator poprowadzi za rączkę.

Sub DataPilotTable Dim oSheet Dim oRange Dim oRangeAddress Dim oTables Dim oTDescriptor Dim oAllFields Dim oField Dim oCellAddress as new com.sun.star.table.CellAddress Dim ile 'Sprawdzenie czy biblioteka jest załadowana If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then 'W...

Możliwości masz sporo, ja podpowiem tylko trzy.
1. Nazwany zakres danych, zmieniający się dynamicznie.
2. W bibliotece Tools jest funkcja GetLastUsedRow, wykorzystaj ją
3. Użyj funkcji arkuszowych (np. ILE.NIEPUSTYCH), i na tej podstawie pobierz adres zakresu.

Mamy tu związek z tematem
https://forum.openoffice.org/pl/forum/v ... =27&t=4440
Autor dostał rozwiązanie na angielskim forum
https://forum.openoffice.org/en/forum/v ... og#p433548

proszę o podpowiedź jak wydobyć nazwy plików i wstawić je do "additems" Basic Guide addItems (ItemArray, Pos) enters the entries listed in the string's ItemArray data field into the list at the Pos position Co to oznacza? Ano to że musi to być tablica elementów, a twoja zmienna nie jest t...

A musi być dialog? Tworząc formularz bezpośrednio w oknie dokumentu masz do dyspozycji formant tabeli, jest to dokładnie to czego szukasz. Niestety nie jest on dostępny w dialogu. Innym rozwiązaniem jest użycie pola tekstowego i czcionki o proporcjonalnych rozmiarach za pomocą której stworzysz namia...

Wstaw to makro. Napisanie od nowa nie jest jakimś tam problemem, ale po co się wysilać.