---

Hallo allerseits !

Kann mir jemand sagen, ob es aus VBA heraus die Möglichkeit gibt, einfache Geometrische Formen (Linie, Quadrat, Kreis etc.) zu generieren ?

Falls das ginge wäre ich froh um einen Tip und die Angabe der notwendigen Bibliothek, welche dafür geladen werden muss.

Gruss Mario

[Diese Nachricht wurde von Mario Wipf am 07. Feb. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wo möchtest du diese hinzufügen ? Im Excel ?

Starte einfach deinen Makrorecorder und füge ein paar Linien hinzu - schon siehst du alle benötigten Elemente....

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmmmm... diesen Makrorekorder habe ich schon unzählige male verwendet aber darauf komme ich wieder nicht :-)

Vielen Dank !!

Gruss Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmmm jetzt kommt aber noch ein kniffliger Zusatz

Als Provisorium kann ich die "Zeichnung" ja im Excelsheet platzieren.

Gäbe es auch eine Möglichkeit, sowas direkt im "Userform" zu generieren ?

Gruss Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ähhhh - ich versteh dich grad nicht ?

Userform ist das Ding was mir Dialogboxen im Excel darstellt - und was willst du da reinzeichnen ? Userform definiert ja eigentlich nur die Dialogbox - da kannst du nix hinzufügen...

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmm, warum sollte das nicht gehen...?
http://www.andypope.info/vba/userformdraw.htm

viel Spass 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

du kannst zur Not im Userform selber malen:

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" _
    (ByVal hwnd As Long) As Long
Private Declare Function SetPixel Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal crColor As Long) As Long

Dim hwnd As Long, hdc As Long

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    hdc = GetDC(hwnd)
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    SetPixel hdc, X / 0.75, Y / 0.75, vbBlack
End Sub

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja genau sowas habe ich mir erhofft :-)

Ich möchte z.B. bei einer thermodynamischen Berechnung die logarithmiesche Temperaturdifferenz darstellen bzw. die beiden Graphen Warme Seite ein--> aus ; und kalte Seite ein--> aus da ja das Auge bekanntlich mitisst :-)

Vielen Dank für Eure Tips, ich werde die heute oder morgen gleich mal testen :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

apimax.jpg

das macht ja direkt Spass;-)

lg Nancy;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da hast Du aber viel Gedulg gehabt, bis Du Deinen Picasso beisammen hattest 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mario,

das macht sie zwischen Arbeitsbeginn und Ende. Ich werd ihr die Strichbreite auf 6 Pixel erhöhen, dann geht das etwas schneller. 

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP