Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Screenshot verkleinert einfügen

Forumthread: Screenshot verkleinert einfügen

Screenshot verkleinert einfügen
04.10.2017 13:40:08
Thomas
Hallo
ich nutze folgenden Code um einen Bereich als Screenshot in eine andere Mappe zu kopieren.
Kann man das auch mit z.b 85% der Orginalgröße einfügen?
Hier mal der Code:
Sub Monatsansicht_erstellen()
'Namensliste kopieren
Dim rngQuelle As Range
Set rngQuelle = Sheets("Jahresplan").Range("C1:D98")
rngQuelle.CopyPicture
With Sheets("Monatsansicht")
' Namensliste einfügen
'Januar
.Range("B3").PasteSpecial 'Ziel anpassen
.Shapes(.Shapes.Count).DrawingObject.Formula = rngQuelle.Parent.Name & "!" & rngQuelle.Address
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Screenshot verkleinert einfügen
04.10.2017 18:43:02
Mullit
Hallo,
probiers mal hiermit:
Option Explicit

Public Sub Monatsansicht_erstellen()

'Namensliste kopieren 

Dim rngQuelle As Range
Application.ScreenUpdating = False
Set rngQuelle = Worksheets("Jahresplan").Range("C1:D98")
Call rngQuelle.Copy

' Namensliste einfügen 

   With Worksheets("Monatsansicht").Pictures.Paste(Link:=True)
        .Left = .Parent.Range("B3").Left
        .Top = .Parent.Range("B3").Top
         With .ShapeRange
             Call .ScaleHeight(Factor:=0.85, RelativeToOriginalSize:=msoFalse)
             Call .ScaleWidth(Factor:=0.85, RelativeToOriginalSize:=msoFalse)
         End With
   End With

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit
Anzeige

Forumthreads zu verwandten Themen

Automatisch Mails mit Anhang verschicken
Edis
Hallo zusammen. Ich will folgendes machen:
Ich habe eine Excel-Datei. Ich habe 2 Tabellenblätter. Ein Tabellenblatt heißt "Tabelle1" und die andere heißt "Firmen“.
Ich möchte, wenn ich in Tabelle1 in Spalte u ein Datum eintrage, dass in Spalte R nachgeschaut wird, welcher Wert dort steht und...
26.02.2023 23:11:06
Thread-ID: 1921851
3 Beiträge
Anzeige
E-Mail aus Excel VBA
Marsl

Hallo,
habe hier einen Code, der mir von Spalte B- n die zweite Zeile in Outlook kopiert und es an die Empfänger per Mail schickt
Also B1 bekommt Info B2// C1, bekommt Info C2 etc...
Ich müsste jetzt noch bei jedem Emfänger einen Bereich A1 - A5 einfügen. Dieser ist bei allen gleic...
08.08.2016 13:42:36
Thread-ID: 1508280
4 Beiträge
E-Mail Bereich und Diagramm
Peter

Hallo Forum,
ich möchte ein Arbeitblatt aus einer Arbeitsmappe
welches Werte und ein eingebettetes Diagramm enthält, mit Outlook versenden.
Es soll keine Anhangdatei gebildet werden.
Dazu kopiere ich einen best. Bereich in die Zwischenablage und
möchte diesen wieder einfüge...
23.05.2005 19:23:37
Thread-ID: 615086
1 Beitrag
Zwischenablage in Outlook kopieren
Swen

Hallo !
Ich habe ein Problem bei den versenden aus Excel mit Outlook.
Über ein CommandButton lasse ich Outlook öffnen und über eine vorgegebene Adresse die Excel Tabelle als Anlage verschicken. Dies war schon öfters im Forum und das klappt auch super.
Nun möchte ich aber nicht die T...
12.06.2005 13:08:32
Thread-ID: 622963
4 Beiträge
Tabellen-Bereich in E-Mail einfügen
Jochen

Tabellen-Bereich in E-Mail einfügen
Hallo zusammen,
erstmal ein großes Lob an alle die hier Antworten posten und ihr Wissen bereitstellen, hat mir schon einige Male geholfen, vielen Dank dafür!!!
ich berufe mich hier auf eine Fragestellung aus 2007 mit dem Titel "Tabellen-Bereich in...
22.07.2020 21:03:46
Thread-ID: 1773187
10 Beiträge
nofear
Jochen

Tabellen-Bereich in E-Mail einfügen
Hallo zusammen,
erstmal ein großes Lob an alle die hier Antworten posten und ihr Wissen bereitstellen, hat mir schon einige Male geholfen, vielen Dank dafür!!!
ich berufe mich hier auf eine Fragestellung aus 2007 mit dem Titel "Tabellen-Bereich in...
22.07.2020 20:59:01
Thread-ID: 1773186
1 Beitrag
E-Mail einfügen funzt nicht
Fredd

Hallo alle Excellaner
Ich versuche eine E-Mail aus Exel zu verschicken. Und zwar habe ich einen Bestimmten Bereich der Kopiert werden soll mit allen Formatierungen und Linien+ Text. Die E-Mail geht zwar auf und der Bereich der Kopiert werden soll wird selectiert, aber leider wird er in der...
17.01.2008 11:05:00
Thread-ID: 942608
5 Beiträge
Daten aus Zwischenablege in Outlook einfügen
Kai

Hi,
ich habe ein Quellcode mit dem ich von einer Userform sowas wie ein screenshot machen kann. dieser landet dann automatisch in der Zwischenablage:
Meine Frage: gibt es mit VBA eine Möglichkeit, auf diese Zwischenablage zuzugreifen, Outlook (neue Mail) zu öffnen und da den screenshot...
08.04.2009 16:18:19
Thread-ID: 1067738
4 Beiträge
E-Mail von Excel über Outlook versenden
Excel

Hallo zusammen,
ich möchte die Zwischenablage aus Excel in den HTMLBody eines generierten Outlook-E-Mails einfügen. Das Problem ist, dass es bei mir am Rechner problemlos funktioniert. Wenn ich allerdings an einen anderen Rechner gehe, dann fügt es die Zwischenablage nicht ein. Setze ich ab...
04.04.2019 22:16:35
Thread-ID: 1685239
2 Beiträge
Mail Opjekt
J.Hass

Hallo
Ich benötige Hilfe.
Wer kann mir den Code so Umschreiben das dieser auf Mozilla Thunderbird läuft?
Private Sub CommandButton7_Click() Dim OutApp As Object, Mail As Object, i Dim Nachricht ' nachfolgend den gewünschten Tabellenbereich einstellen Range("ah2:ao64").Select Select...
26.12.2018 10:25:51
Thread-ID: 1664564
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum