Das Archiv des Excel-Forums
Userform als Bild
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
- Userform als Bild von Werner vom 04.10.2003 20:59:21
- AW: Userform als Bild - von PeterW am 04.10.2003 21:03:59
- Userform als Bild - VBA Lösung - von GraFri am 04.10.2003 21:07:34
- AW: Userform als Bild - VBA Lösung - von Werner am 04.10.2003 21:22:28
- Super VBA Lösung!! - von Werner am 05.10.2003 00:10:58
- AW: Super VBA Lösung!! - von Erich M. am 05.10.2003 09:29:15
- AW: Super VBA Lösung!! - von Erich M. am 05.10.2003 09:29:15
- Super VBA Lösung!! - von Werner am 05.10.2003 00:10:58
- AW: Userform als Bild - VBA Lösung - von Werner am 04.10.2003 21:22:28
- AW: Userform als Bild - von PeterW am 04.10.2003 21:03:59
 |
Betrifft: Userform als Bild
von: Werner
Hallo Excelianer,
Ist es möglich eine Userform als
Bild z.b. (*.jpg) oder so zu speichern?
Wenn ja wie?
Wenn nein bitte auch antworten!
mfg Werner
 |
Betrifft: AW: Userform als Bild
von: PeterW
Geschrieben am: 04.10.2003 21:03:59
Hallo Werner,
kopier den Bildschirm in die Zwischenablage (STRG+Druck) und füge den Inhalt der Zwischenablage in eine Bildbearbeitung ein.
Gruß
Peter
|
Betrifft: Userform als Bild - VBA Lösung
von: GraFri
Geschrieben am: 04.10.2003 21:07:34
Hallo
'In ein Modul
Option Explicit
Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (LpVersionInformation As OSVERSIONINFO) As Long
Public Const VK_MENU = &H12
Public Const KEYEVENTF_KEYUP = &H2
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Public Sub GetWindowSnapShot(Mode As Long)
Dim altscan%, NT As Boolean
NT = IsNT
If Not NT Then
If Mode = 0& Then Mode = 1& Else Mode = 0&
End If
If NT And Mode = 0 Then
keybd_event vbKeySnapshot, 0&, 0&, 0&
Else
altscan = MapVirtualKey(VK_MENU, 0)
keybd_event VK_MENU, altscan, 0, 0
DoEvents
keybd_event vbKeySnapshot, Mode, 0&, 0&
End If
DoEvents
keybd_event VK_MENU, altscan, KEYEVENTF_KEYUP, 0
End Sub
Public Function IsNT() As Boolean
Dim verinfo As OSVERSIONINFO
verinfo.dwOSVersionInfoSize = Len(verinfo)
If (GetVersionEx(verinfo)) = 0 Then Exit Function
If verinfo.dwPlatformId = 2 Then IsNT = True
End Function
Sub Screenshot()
'gesamten Bildschirm:
'GetWindowSnapShot 0
'oder nur das aktives Fenster:
GetWindowSnapShot 1
Sheets("Tabelle1").Paste
ThisWorkbook.Save
End Sub
Code eingefügt mit Syntaxhighlighter 2.4
mfg, GraFri
|
Betrifft: AW: Userform als Bild - VBA Lösung
von: Werner
Geschrieben am: 04.10.2003 21:22:28
Hallo GraFri.
Super Beitrag!
Brauche etwas zeit es genauer anzuschauen.
Bin ev. Erst Morgen wieder hier.
Gruss Werner
|
Betrifft: Super VBA Lösung!!
von: Werner
Geschrieben am: 05.10.2003 00:10:58
Hallo GraFri,
Danke für den Code!
Bin begeistert und hab schon einiges gemacht.
Gruss Werner
|
Betrifft: AW: Super VBA Lösung!!
von: Erich M.
Geschrieben am: 05.10.2003 09:29:15
Hallo zusammen,
sowas habe ich auch schon lange gesucht!
Besteht evtl. die Möglichkeit, nur einen bestimmten Bereich
einer Tabelle zu kopieren, z.B. A1:G20 ??
Meine Versuche waren (erwartungsgemäß) erfolglos!
Besten Dank!
mfg
Erich
| |
