Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bildschirmausschnitt automatisch einfügen

Bildschirmausschnitt automatisch einfügen
28.09.2018 09:52:42
Lorenz
Guten Tag
Wir basteln seit einiger Zeit an einem Excel-Formular welches wir für die Bearbeitung der Werkstoffe auf der Maschine brauchen. Es ist soweit fertig, nur suchen wir noch eine besser Lösung bei einem Punkt. Leider stießen wir dabei an unsere Grenzen was Excel Kenntnisse betrifft.
Ich probier das hier mal verständlich zu beschreiben:
Wir würden gerne ein Bildschirmausschnitt in einem vordefinierten Rahmen/Feld einlegen, so dass sich das Bild nicht verzieht aber sich maximal dem Rahmen/Feld anpasst (entweder in der Breite oder in der Höhe, je nach Format).
Nun kam die Idee dass in diesem leeren Rahmen/Feld bereits ein Knopf ist, der bei Betätigung automatisch die Bildschirmausschnitt Funktion startet, und nach Auswahl des Ausschnittes das Bild automatisch in dieses Feld einfügt.
So ich hoffe dies ist verständlich geschrieben, ich hoffe uns kann hier jemand weiter helfen!
Danke & Gruß
Lorenz

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildschirmausschnitt automatisch einfügen
28.09.2018 11:57:25
fcs
Hallo Lorenz,
beim Einpassen einer Grafik aus der Zwischenablage in einen Rahmen (z.B. Rechteck aus Formen) kann ich weiterhelfen. Siehe nachfolgendes Makro.
Das Screenshot-Programm per Excel-Makro ansteuern und dann warten bis die Zwischenablage gefüllt ist, da kenne ich mich nicht aus. Es ist auch oft problematisch ein Programm zu steuern, das keine VBA-Funktionalität hat.
LG
Franz
'Dieses Makro dem Shape zuweisen in das die Grafik eingepasst werden soll.
'Nach der Übernahme des Screenshots in die Zwischenablage dieses Makro dann per _
Klick auf den Rahmen starten
Sub Grafikrahmen_Klicken()
'Einpassen des Inhalts der Zwischenablage in ein Shape-Object
Dim dTop As Double, dLeft As Double, dWidth As Double, dHeight As Double
Dim objGrafik As Object
Dim objRahmen As Shape
Set objRahmen = ActiveSheet.Shapes("Grafikrahmen") 'Name des Shapes in das der Inhalt _
der Zwischenablage eingepasst werden soll
With objRahmen
'Position und Abmessungen des Rahmen-Objekts speichern
dTop = .Top: dLeft = .Left: dWidth = .Width: dHeight = .Height
.Select
End With
ActiveSheet.Paste
Set objGrafik = Selection.ShapeRange
With objGrafik
.LockAspectRatio = msoTrue
If .Width / .Height > dWidth / dHeight Then
.Width = dWidth - 4
.Left = dLeft + 2
.Top = dTop + (dHeight - .Height) / 2
Else
.Height = dHeight - 4
.Top = dTop + 2
.Left = dLeft + (dWidth - .Width) / 2
End If
End With
Application.CutCopyMode = False
End Sub

Anzeige

108 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige