Thema Datum  Von Nutzer Rating
Antwort
24.07.2015 19:54:33 TS
NotSolved
Blau ursprüngliche Dialogposition ändern
 25.07.2015 01:19:44 Gast83205
NotSolved

Ansicht des Beitrags:
Von:
Gast83205		 Datum:
25.07.2015 01:19:44		 Views:
1781		 Rating:
     
Antwort:
  Ja
Thema:
ursprüngliche Dialogposition ändern
  1. Speicher die Koordinaten entweder auf einem Tabellenblatt ab (kann ja versteckt sein),
  2. entlade die UserForm einfach nicht (Unload Me), sondern blende sie nur aus (Me.Hide),
  3. oder nutze die benutzerdefinierten Dokumenteigenschaften (s. Code)
Option Explicit

Sub Bsp()
  
  Call SetCustomDocumentProperty("MyUserForm.Left", msoPropertyTypeFloat, 12.34)
  Call SetCustomDocumentProperty("MyUserForm.Top", msoPropertyTypeFloat, 123.4)
  
  Debug.Print GetCustomDocumentProperty("MyUserForm.Left")
  Debug.Print GetCustomDocumentProperty("MyUserForm.Top")
  
End Sub

Function SetCustomDocumentProperty(Name As String, PropertyType As MsoDocProperties, Value As Variant)
  If Not IsNull(GetCustomDocumentProperty(Name)) Then Call ThisWorkbook.CustomDocumentProperties(Name).Delete
  Call ThisWorkbook.CustomDocumentProperties.Add(Name, False, PropertyType, Value)
End Function

Function GetCustomDocumentProperty(Name As String) As Variant
  On Error Resume Next
  GetCustomDocumentProperty = ThisWorkbook.CustomDocumentProperties(Name)
  If CBool(Err.Number) Then GetCustomDocumentProperty = Null
End Function

Das gleiche gibt es auch in Word (nur halt anstatt ThisWorkbook dann eben ThisDocument verwenden).

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.07.2015 19:54:33 TS
NotSolved
Blau ursprüngliche Dialogposition ändern
 25.07.2015 01:19:44 Gast83205
NotSolved