In VBA per Button den Explorer öffnen, um ein beliebiges Bild auszuwählen?

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

2 Antworten

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

28.06.2016, 13:16

vielleicht hilft dir dieser link weiter:

https://msdn.microsoft.com/en-us/library/office/ff840210.aspx

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

Chiaki

Beitragsersteller

28.06.2016, 13:30

Das hat mir sehr geholfen die Seite hatte ich nicht gefunden. VIELEN DANK!

BerchGerch

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Word

11.08.2016, 14:33

Hallo,

der VBA-Befehl in Word, um den Einfügen – Grafik – Dialog des Explorers zu öffnen, lautet

Application.Dialogs(wdDialogInsertPicture).Show

Hier kannst du jetzt das gewünschte Bild auswählen.

Gruß, BerchGerch

Woher ich das weiß:eigene Erfahrung – Ich arbeite seit 30 Jahren nahezu täglich mit Word.

Ähnliche Beiträge

Wie kann ich Word Textmarken mit einem Excel Makro befüllen?

Hallo liebes Gute Frage Forum,

ich bin ein blutiger Anfänger im Programmieren und möchte mich trotzdem an eine, wie ich finde, nicht ganz so leicht Aufgabe wagen.

Ich hoffe es erbarmt sich jemand und hilft mir weiter.

Meine Aufgabe:

Ich habe eine ExcelDatenbank die mehrere Einträge für mehrere Kunden verwaltet. ( Name, Anrede, Straße usw. )

Außerdem habe ich ein Word Dokument erstellt in das ich die Word Textmarken eingefügt habe ( Ebenfalls so benannt Name, Straße, Anrede usw. )

Nun möchte ich in Excel eine Zeile anklicken und anschließend das Makro ausführen. ( Das Makro soll dann nur für die Ausgewählte Zeile ausgeführt werden )

Die Vorlage soll aber nicht überschrieben werden, es soll ein neues Word Dokument erstellt werden, in dem die Felder dann ausgefüllt sind ( Am besten mit anderem Speicherpfad den ich dann auch direkt im Makro eingeben kann. )

Natürlich habe ich es auch schon selber versucht, allerding haben mir die Codeschnipsel die ich aus dem Internet geholt habe nicht ganz geholfen.

Hier mein Code: http://paste2.org/wFtw5UId

Mein Problem ist es nun, dass nur das letzte Textfeld wo ich die Referenz auf "Hallo" gesetzt habe befüllt werde, die anderen jedoch nicht obwohl excel keine fehlermeldung ausspuckt..

Außerdem hätte ichs gerne so wie oben beschrieben, dass er nur die Vorlage mit den Textmarken öffnet aber nicht überschreibt sondern ein neues Dokument mit den ausgefüllten Textmarken erstellt. (Pfad soll im Makro bestimmt werden)

Ich hoffe sehr das mir jmd. weiter helfen kann

Einen wunschönen Tag noch :)

...zum Beitrag

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zum Beitrag

Excel - Neu eingefügte Zeile automatisch in andere Tabelle übernehmen

Hallo,

ich sitze vor dem Problem, dass ich in Excel eine Tabelle habe, die für andere (übersichtlichere) Tabellen als Datenpool dient. Diese Anderen habe ich jeweils mit =SVERWEIS(...) mit der ersten Spalte verbunden, so dass die Daten dann, entsprechend dem ersten Feld in jeder Zeile, aus dem Datenpool übernommen werden.

Wenn ich jetzt im Datenpool allerdings eine weitere Zeile zwischen den bestehenden Zeilen einfüge, würde diese in den anderen Tabellen nicht auftauchen, oder müsste manuell eingefügt werden.

Mein Ansatz, den Vorgang per Makro eine neue Zeile automatisch in die anderen Tabellen zu übernehmen, scheitert daran, dass das Makro nur auf die in der Aufzeichnung genutzte Zeile anwendet.. Wünschenswert wäre allerdings, dass Excel automatisch beim Einfügen einer neuen Zeile im Datenpool die Zeile an entsprechnder Stelle in den anderen Tabellen anlegt und mit den Daten aus dem Datenpool füllt.

Für Anregungen oder Hilfestellungen, wie dies machbar ist wäre ich sehr dankbar.

...zum Beitrag

Datum in ausgewählter Zelle per Makro einfügen?

Hallo Leute,

Also ich würde gerne per Knopfdruck in einer Zelle die ausgewählt (also angeklickt) ist das aktuelle Datum einfügen.

ist das möglich und wenn ja könnte mir jemand den entsprechenden befehl schreiben?

...zum Beitrag

Wie kann ich in Excel VBA eine Zeile in die nächste leere Zeile eines anderen Tabellenblattes einfügen?

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

...zum Beitrag

Warum sind Teile der Grafiken abgeschnitten und die Ränder im Worddokument so verwirrend/eigenartig?

Hallo Community Ich habe ein Worddokument, in welches ich viele kleine Bilder eingefügt habe (per rechtsklick, einfugen usw.) Wenn ich es drucke bzw. mir die Druckvorschau angucke sind die Ränder der Grafiken abgeschnitten. Es fehlt immer ein kleiner Teil. Kann mir bitte jemand helfen ?

...zum Beitrag

Was ist Office 365 Dateityben Office Open XML ODF-Format?

Office 365 Standarddateityben Office Open XML ODF-Format?

Kann man frühere docx Worddokumente ohne Formatierungsfehler kompatibel öffnen in Office 365?

...zum Beitrag

Emails mit Hilfe von Excel-VBA auslesen und abspeichern?

Hallo liebe Leute,

ich habe mal wieder ein Problem. Ich möchte gerne Daten wie Anschrift, Firma, Ansprechpartner, Anrede usw. aus Emails auslesen und in Excel einfügen. Bisher habe ich das alles von Hand gemacht, aber es muss doch auch eine Möglichkeit geben um das zu vereinfachern.

Die Emails sehen nicht alle immer unbedingt gleich aus, was die Aufgabe meiner Meinung nach sehr viel schwieriger macht. Die Mails sind in keinem besonderen Format vorhanden, am coolsten wäre es, wenn man beim Start des Makros eine Email eingeben kann, und das Makro dann die passende Mail aus meinem Outlook Maileingang auswählt.

Am Liebsten wär mir ein Makro in Excel, dass dann diese Mail durchgeht und Adresse, Anrede, Firma, PLZ usw. raussucht und in Excel einfügt. Z.b. if ( untersuchtes wort = zahl zahl zahl zahl zahl ) dann soll das Makro darauf kommen, dass hier wahrscheinlich die PLz zu finden ist. Oder irgendwo steht mfg und das was danach kommt ist dann wahrscheinlich der Ansprechpartner.

Habe allerdings keinen Schimmer wie ich da ran gehen soll und ob das überhaupt geht.

Ich hoffe jemand kann mir da weiterhelfen :)

Beste Grüße

Chris

...zum Beitrag

Excel Makro - Variable Zelleneingabe im Blatt suchen?

Hallo, ich suche seit gut 8 Monaten (ja.. eine lange Zeit bis dato ohne Lösung) einen Weg um folgendes Umzusetzen:

Makro-Ausführung:

In eine Zelle soll ein Buchstabe eingegeben werden, diese Zelle soll vom Makro kopiert werden, den Textinhalt in die Suche eingefügt werden, das Blatt nach dem Text durchsuchen und die Zelle bei einer Liste finden, mit den Pfeiltasten einmal auf die Zelle rechts davon springen, diesen Text kopieren und in eine andere Zelle einfügen.

Makro-Aufnahme:

Zum aufnehmen des Makros gebe ich vor der Aufnahme in die gewisse Zelle (siehe Bild unten) einen Buchstaben (B) ein. Dann starte ich das Makro.

Die Zelle mit dem Buchstaben "B" wird kopiert, die normale Excel-Suche wird geöffnet, der Textinhalt wird bei der Suche eingefügt, Suche gestartet. Buchstabe "B" wird im aktuellen Blatt (Liste) gefunden. Ich springe mit der Pfeiltaste rechts in die benachbarte Zelle ("Baum") kopiere die Zelle und füge sie wo anders als "Ausgabe" ein. Ich beende die Aufnahme.

Problem:

Wenn ich dann in die gewisse Zelle den Buchstaben "A" eingebe, und aus "Ausführen" klicke, wird das vorherige aufgezeichnete Makro gestartet. Dann soll in der Suche der Buchstabe A eingefügt werden und nach "A" gesucht werden.

Aufgrund eines eigenartigen Fehlers wird aber der WIRKLICHE BUCHSTABE VON DER MARKO-AUFZEICHNUNG ("B") EINGEFÜGT - UND NICHT A.

(Ich habe beim Aufzeichnung natürlich über die Einfüg-Funktion den Zellinhalt ("B") eingefügt und nicht manuell eingetippt.)

Ich muss es schaffen, dass die Suche immer einen anderen Buchstaben einfügt, welcher von der Zelle kopiert wurde.

Wenn möglich, nur Methoden zur Aufzeichnung angeben, keine VBA Befehle - da ich davon nichts verstehe :P Ausser es ist wirklich anders nicht umsetzbar.

Bitte um dringende Hilfe, mit läuft die Zeit davon :p Ich hab das sicher schon 25 Mal neu gemacht, immer etwas anders und andere Methoden gesucht, ich werden nicht fündig.

Hier ein Bild darunter, für besseres Verständis. Ich freue mich über jede Hilfe!

Danke Danke Danke!

Bild in groß öffnen

...zum Beitrag

Excel/VBA Datum (Wochentage) automatisch erzeugen?

Hallo zusammen,

ich gebe zu, ich bin etwas zu faul es zu googeln und zu suchen.

Normal kenne ich mich mit Excel recht gut aus, aber mit "Datum" arbeite ich da so gut wie nie...

Meine Wunsch:

Ich benötigt in der Zelle "G2" immer den ersten Arbeitstag(Mo-Fr) des Monats.

In den Zellen rechts davon wird dieses weiter gezählt. (Also immer in Zeile 2)

Dabei soll Samstag und Sonntag nicht vorkommen.

Hat jemand eine Idee? Da ich in der Datei eh schon einige Makros habe, darf es gern ein Marko sein.

Bedingungen:

Da ich mit einem anderen Makro diese Zeile auf ein spezielles Datum absuche, sollte dieses im Format sein, wie im Angefügten Bild.

https://images.gutefrage.net/media/fragen/bilder/excelvba-datum-wochentage-automatisch-erzeugen/0_big.jpg?v=1516696753345"/>

...zum Beitrag

Bilder in Word werden nach kopieren nicht angezeigt

Hallo Zusammen,

ich habe das Microsoft Home und Student 2010 installiert und nachdem ich mein Rechner neu aufsetzten musste, werden nun plötzlich in Word keine "kopierten" Bilder mehr anzeigt.

Erklärung: Ich benutze Evernote und speicher mir dort Rezepte ab. Diese wollte ich nun in Word kopieren. Das habe ich bereits vor der Installation meines Rechners getan und dann hab ich quasi per Copy and Paste das Rezept in mein Word kopiert.

Das Rezeptbild wurde angezeigt.!!!

Nun, nach der Neuinstallation, kopiert er auch alles, aber anstelle des Bildes, sehe ich nur einen "Rahmen", wenn ich draufklicke. (Kein rotes X oder so, nur der Rahmen)

Wisst ihr, woran das liegt? Ich kann zwar Bilder über "Grafik einfügen" dem Worddokument einfügen, aber der Weg wäre umständlicher, weil ich dann erst jedes mal die Bilder speichern müsste, um sie dann meinem Rezept wieder zuzufügen.

Habt ihr eine Idee wie ich die Bilder wieder korrekt sehe beim kopieren?

...zum Beitrag

Excel - Rechteck per VBA sichtbar und unsichtbar machen?

Hallo,

ich hätte gern den VBA Code, um in Excel folgendes per Makro zu erreichen:

Ich würde gerne einen Häkchen-Button einfügen (soweit kein Problem), bei dessen Klick ein vorher eingefügtes Rechteck in meiner Tabelle sichtbar wird. Klickt man das Häkchen weg, wird das Rechteck wieder unsichtbar.

Falls das auch ohne VBA geht, wärs natürlich noch besser.

Wer kann mir hier helfen?

verzweifelte Grüße,

quietscheratsch

...zum Beitrag

VBA Ausgewählte Zeilen kopieren und in anderer Tabelle einfügen (mit Variablen)?

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe

...zum Beitrag

Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen