| |
| Blechfertigung: Leitfaden zur Materialauswahl, ein Fachartikel
|
Autor
|
Thema: Grafische Darstellung über VBA (8008 mal gelesen)
|
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 07. Feb. 2006 07:55 <-- editieren / zitieren --> Unities abgeben:
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 |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 07. Feb. 2006 10:48 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
|
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 07. Feb. 2006 15:09 <-- editieren / zitieren --> Unities abgeben:
|
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 07. Feb. 2006 15:27 <-- editieren / zitieren --> Unities abgeben:
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 |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 07. Feb. 2006 15:36 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
Ä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 |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 07. Feb. 2006 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
|
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 07. Feb. 2006 15:55 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
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 |
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 07. Feb. 2006 16:40 <-- editieren / zitieren --> Unities abgeben:
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 |
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 07. Feb. 2006 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
|
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 08. Feb. 2006 21:49 <-- editieren / zitieren --> Unities abgeben:
|
Nepumuk Mitglied Entwicklungsleiter
Beiträge: 351 Registriert: 16.10.2004
|
erstellt am: 08. Feb. 2006 21:55 <-- editieren / zitieren --> Unities abgeben: Nur für Mario Wipf
|