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

Bild einfügen und Größe/Position anpassen

Forumthread: Bild einfügen und Größe/Position anpassen

Bild einfügen und Größe/Position anpassen
03.07.2014 22:31:00
Benni
Hallo VBA-Experten,
hatte leider keie Hilfe für ein VBA-Problem in Powerpoint gefunden.
Hoffe Ihr könnt mir helfen!
Würde gerne per VBA den Dialog Bild einfügen aufrüfen und das ausgewählte Bild auf die aktuelle Folie mit einer definierten Größe sowie Position einfügen.
Muss leider viele Bilder und Diagramme in eine Präsentation eingefügen.
Besten Dank im Voraus
Benni

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild einfügen und Größe/Position anpassen
04.07.2014 08:42:01
fcs
Hallo Benni,
hier ein Makro-Beispiel für das Einfügen einer Grafik-Datei unter PowerPoint.
Falls du unterschiedliche Grafikformate hast, dann müsste man ggf. an einem Filter für den Dialog basteln, der mehrere Grafikformate im Dateidialog anzeigt.
Gruß
Franz 
'Erstellt unter PowerPoint 2010
Sub Bild_jpg_Einfuegen()
Dim objShape As Shape, objSlide As Slide
Dim Auswahl As Variant
Set objSlide = Application.ActiveWindow.View.Slide
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Bitte Grafik, die eingefügt werden soll auswählen"
.InitialFileName = "*.jpg"
If .Show = -1 Then
Auswahl = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set objShape = objSlide.Shapes.AddPicture(FileName:=Auswahl, linktofile:=msoFalse,  _
savewithdocument:=msoTrue, _
Left:=30, Top:=50, Width:=-1, Height:=-1)
With objShape
.LockAspectRatio = msoTrue
If .Height > 400 Then
.Height = 400
End If
If .Width > 600 Then
.Width = 600
End If
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Anzeige
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
VBA Code einfügen
markus

Hallo zusammen,
ich habe noch ein Problem,
beim erstellen der neuen Blätter soll der Code aus dem Blatt "Mustermann_M"
mit übernommen werden, oder über dieses Makro eingefügt werden.
Ist das möglich?
Danke und Gruß Markus
Sub Blätter_erstellen_neu() Sheets("Vorgaben").Un...
12.08.2010 15:37:02
Thread-ID: 1171898
7 Beiträge
Formel via VBA in best. (viele) Zellen einfügen
Klaus

Hallihallo zusammen,
und zwar mache ich u.a. einen Vergleich von 2 Tabellen mit mehreren Spalten und vielen Zeilen (meist um die 2500). [Vergleichscode ursprünglich von Hajo-Excel.de... vielen Dank an der Stelle!!]
Ich habs so hinprogrammiert und es hat im Kleinen auch gut funktioniert....
15.09.2010 16:53:30
Thread-ID: 1177873
5 Beiträge
per VBA Excel Chart mit Verknüpfung in Powerpoint
Frank

Guten Morgen zusammen!
Wie kann ich per VBA eine Excel-Range (mit dem Namen "TEST") in eine bestehende Powerpointpräsentation namens "MASTER.ppt" einfügen? Das einfügen soll als Verknüpfung stattfinden.
Im Anschluß möchte ich dann aus Excel heraus ein in der "MASTER.ppt" bestehendes Mak...
04.11.2010 22:50:54
Thread-ID: 1185141
2 Beiträge
Bild in Zelle einfügen.
Ernst

Hallo Exel Profis !
Ich würde mal wieder eure Hilfe benötigen.
Ich bräuchte ein makro das mir folgendes erfüllt, per Doppelklick in Zelle. g3 sollte sich der ordner C:\Dokumente und Einstellungen\Eigene Dateien\Eigene Bilder öffnen .Danach möchte ich mir ein bild auswählen können das si...
24.11.2010 12:48:35
Thread-ID: 1188515
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige