OpenOffice.info

Hi,
hier die drei Varianten in zum Vergleich. For next funktioniert wie gedacht. Stephans Vorschlag braucht noch eine Meldung für den Anwender, da gewartet wird bis wait beendet und Taste losgelassen ist.
Grüße

Hi,
ich dachte wait funktioniert ähnlich wie eine for next Schleife nur in der Zeit genauer.
Mit der for next Schleife funktioniert der Code wie gewünscht. Ihr werdet mir aber wohl sagen, dass das so unsauberer Programmierstil ist.
Grüße

Hi,
gibt es eine Möglichkeit den Wait Befehl vor der Ausführung zu initialisieren?

Dim halt As Boolean

Sub Mouse_left_down
doc = ThisComponent
Cell = Doc.Sheets(0).GetCellRangeByName("A1")
halt = 0
i = 0
Do
i = i + 1
Cell.Value = i
wait 500
REM Mein Makro ausführen
Loop until Halt ...

Hi,
genauso! Einfacher als ich dachte.
Merkwürdig ist nur, dass bei mir until und while in der Funktion vertauscht ist.

Danke und Grüße an den Meister

Hi,
ich brauche ein Code, der bei gedrückter Maustaste ausgeführt wird.
Es gibt das Maus-Ereignis "Mouse button pressed", finde aber keine Erklärung wir das angewandt wird. Aufgerufen wird das Makro über eine Schaltfläche und soll den Code bis zum Loslassen ausführen.

Sub Mouse_left_down

Do
REM ...

Hi

Wahrheitstabellen sind besser als Intuition.
http://workupload.com/file/Gyzb4dvR
Grüße

Edit: Dateianhang

Hi,

sorry für die Blasphemie.
Das Zwischenspeichern bringt keine Abhilfe.

Grüße


Moderation,4: Neues Thema; abgetrennt nach: Dokument im gleichen Fenster (frame) laden

Hi,
Moderation,4: neue Fragestellung - deswegen neues Thema eröffnet


Habe diesen den Code versucht:
Dim Doc As Object
Dim Dummy()
Dim Url As String
Dim SearchFlags As Long
SearchFlags = com.sun.star.frame.FrameSearchFlag.CREATE + _
com.sun.star.frame.FrameSearchFlag.ALL
Url = "file:///C:/test ...

Hi,
ich habe Probleme mit diesem Code:
Sub Aktualisieren
Doc = thisComponent
mySheet = Doc.sheets(0)
REM ----------------------- Löschen ------
Clear
Rem ------------------------Dateinamen holen -----
Grafik_Namen
Rem ------------------------holt den aktuellen Pfad --------
Aktueller_pfad ...

Hi,
also die Grafiken in den Hintergrund und mit dem Code, der nur die Zellen schützt, kann ich leben.
Danke erstmal
Grüße

Hi,
Einspruch Euer Ehren. Bei 4.1.1, gibt es zwei Optionen:
1. Gesperrte Zellen wählen
2. Nicht gesperrte Zellen wählen.
Nix mit Grafik.
Nichtsdestotrotz, wie kann man den zweiten Code "Recorder_Tabellenschutz_Ein" so abändern,
dass nicht jedes Mal ein neues Passwort verlangt wird.
Grüße

Hi,
zu a: Der Tabellenschutz schützt die Grafik vor Manipulationen, da wenn eingeschaltet, nicht markierbar.
zu b: Der erste Code ist vermutlich unvollständig. Was dort fehlt, weiß ich nicht, deshalb meine Frage dazu.

Grüße

Hi zweite Runde,
da das Makro auch in geschützten Tabellen funktionieren muss, muss der Schutz zeitweise abgeschaltet werden.
Dieser Code
Sub Tabellenschutz_Aus
Doc = ThisComponent
oSheet = doc.sheets(0)
oSheet.unprotect("Pass")
End Sub
Sub Tabellenschutz_Ein
Doc = ThisComponent
oSheet = doc ...

Hi,
jop, funktinoniert gut.

Vielen Dank

Hi,
also verstehen tue ich das nicht, woher weiß denn --> Rechtsklick>Originalgröße die Originalgröße?
Helfen würde es, wenn man per Makro die Grafik markieren könnte.

ความนับถือ