Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Userform als Bild

Userform als Bild
04.10.2003 20:59:21
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform als Bild
04.10.2003 21:03:59
PeterW
Hallo Werner,

kopier den Bildschirm in die Zwischenablage (STRG+Druck) und füge den Inhalt der Zwischenablage in eine Bildbearbeitung ein.

Gruß
Peter
Userform als Bild - VBA Lösung
04.10.2003 21:07:34
GraFri
Hallo



'In ein Modul
Option Explicit

Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As LongByVal wMapType As LongAs Long
Declare Sub keybd_event Lib "user32" (ByVal bVk As ByteByVal bScan As ByteByVal dwFlags As LongByVal 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
Anzeige
AW: Userform als Bild - VBA Lösung
04.10.2003 21:22:28
Werner
Hallo GraFri.

Super Beitrag!
Brauche etwas zeit es genauer anzuschauen.
Bin ev. Erst Morgen wieder hier.

Gruss Werner
Super VBA Lösung!!
05.10.2003 00:10:58
Werner
Hallo GraFri,

Danke für den Code!
Bin begeistert und hab schon einiges gemacht.

Gruss Werner
AW: Super VBA Lösung!!
05.10.2003 09:29:15
Erich M.
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige