Showing results 1 to 6 of 6

Thread: VBA Makro geöffnete Bilder schliessen

  1. #1
    Join Date
    29.07.2007
    Location
    Rosenheim
    Posts
    34

    Default VBA Makro geöffnete Bilder schliessen

    Hallo

    ist es möglich, das man im Editor über ein VBA Makro alle geöffneten Bilder schließt.

    Kann man anders herum aus einen Wizard ein ZenOn Bild im Editor öffnen

    Grüsse
    Frank

    (Editor Version Z6.22.1)

  2. #2
    tobiassedlmeier Gast

    Default Re: VBA Makro geöffnete Bilder schliessen

    Hallo,

    über folgendes Skript können alle Bilder bzw. ein bestimmtes Bild im Editor geöffnet werden:

    Public Sub Bild_oeffnen()
    Dim a As Integer
    For a = 0 To MyWorkspace.ActiveDocument.DynPictures.Count - 1
    MyWorkspace.ActiveDocument.DynPictures.Item(a).Act ivate
    Next a
    End Sub

    Public Sub best_Bilder_oeffnen()
    MyWorkspace.ActiveDocument.DynPictures.Item("Bildname").Activate
    End Sub

  3. #3
    Join Date
    29.07.2007
    Location
    Rosenheim
    Posts
    34

    Default Re: VBA Makro geöffnete Bilder schliessen

    Danke für die schnelle Antwort.
    Das Öffnen Funktioniert gut, wie sieht es mit dem schliessen aus?
    Gibt es hier auch ein Property <.Hide bzw. .close> funktioniert nicht

  4. #4
    Join Date
    20.08.2009
    Posts
    293

    Default Re: VBA Makro geöffnete Bilder schliessen

    Hallo,

    leider gibt es keine Methode zum Schließen der Bilder.

    Was aber funktionieren sollte ist folgendes:
    Senden des Tastaturbefehls CTRL F4 (Bild schließen).
    Betätigt man im Editor CTRL F4 wird ein Bild geschlossen, das sollte auch über VBA gehen (SendKeys).

    Als Beispiel:
    Public Sub closePic()
     
    Dim zpic As DynPicture
    Set zpic = MyWorkspace.ActiveDocument.DynPictures.Item("Screen")
    zpic.Activate
    zpic.Save
    '^ = CTRL, {F4} = F4
    SendKeys "^{F4}"
     
    End Sub

    Man muss aber aufpassen dass das Bild gerade im Focus ist (sollte aber nach zpic.Activate der Fall sein).

    MfG,
    Bernhard
    Last edited by bernhardf : 31st August 2010 at 12:12

  5. #5
    Join Date
    29.07.2007
    Location
    Rosenheim
    Posts
    34

    Default Re: VBA Makro geöffnete Bilder schliessen

    Funktioniert schon aber eher unschön.

    Ist es dem Editor bzw VBA bekannt wieviel und welches Bild offen ist.
    Mit der Funktion Get kann man scheinbar den Focus aufs Bild setzten.
    Nur findes ich nichts wo ich sehe welches Bild aktiv ist

    Gruß
    Frank

  6. #6
    Join Date
    29.07.2007
    Location
    Rosenheim
    Posts
    34

    Default Re: VBA Makro geöffnete Bilder schliessen

    So funktioniert es auch.
    Grüße
    Frank



    Public Sub Bilder_Schliessen()


    Dim strGuid As String
    On Error Resume Next

    strGuid = MyWorkspace.Application.Projects.Item(0).guid
    ZWorkspace.MyWorkspace.UnloadProject (strGuid)
    ZWorkspace.MyWorkspace.LoadProject (strGuid)

    End Sub

Similar Threads

  1. CapsLock deaktivieren bein schliessen von SETSTRINGKBD
    By armin_sa in forum zenon Supervisor
    Replies: 6
    Last Post: 24th November 2014, 14:14
  2. VBA Makro wird nicht Abgearbeitet
    By philipp.muehlberger@nat.eu in forum VBA
    Replies: 9
    Last Post: 27th September 2011, 09:58
  3. Weltbild - Bilder stimmen nicht mehr??!!
    By sknoerr in forum zenon Supervisor
    Replies: 3
    Last Post: 1st October 2009, 00:01

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •