Das Archiv des Excel-Forums

Userform als Bild

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Userform als Bild
von: Werner

Geschrieben am: 04.10.2003 20:59:21

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
Bild


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


Bild


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 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


Bild


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


Bild


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


Bild


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


 Bild

Excel-Beispiele zum Thema " Userform als Bild"

Diagramm in Userform download XL-Dateien in UserForm listen download
UserForm an Excel-Fenster anpassen download Fundstellen in UserForm listen download
Module und UserForms austauschen download In einer Schleife auf Elemente einer UserForm zugreifen download
Werte in eine ComboBox einer UserForm übernehmen download Zellinhalt als Label-Aufschrift in UserForm download
Alle CheckBoxes einer UserForm ansprechen download Wenn kein Eintrag, UserForm nicht schließen download
Aktiven Drucker in UserForm wechseln download Text aus UserForm-Textbox in Variable einlesen download
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download Nur Buchstaben in eine UserForm-TextBox download
Wert in Tabelle suchen und in UserForm ausgeben download Tabellenblatt in UserForm download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download
Textfelder in UserForm beim Start vorbelegen download Text aus UserForm in eine Zelle schreiben download
Verhindern des Schließens einer UserForm mittels Schließkreuz download Wert in UserForm-TextBox eintragen und selektieren download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download ComboBox-Felder in UserForm aufklappen download
Eingabekontrolle bei UserForm download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Userform in der Entwicklungsumgebung anzeigen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
CheckBoxes in UserForms in eine Schleife einbinden download Anzahl von CheckBoxes in einer UserForm ermitteln download
Vereinfachte Datumseingabe über UserForm download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Werte von CheckBoxes in einer UserForm abfragen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Datensätze in UserForm auswählen und im Blatt löschen download
Bilder in UserForm und Bildgröße anpassen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download UserForm als Fortschrittsanzeige download
AcrobatReader mit *.pdf-Dokument über UserForm starten download Zu einer aufrufenden UserForm zurückkehren download
In einer UserForm Berechnungen aufaddieren download Matrix in UserForm-ListBox einlesen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Adressfeld aus UserForm-ComboBox füllen download Ausgewählte Werte aus UserForm-ListBoxes addieren download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download