Microsoft Excel

Herbers Excel/VBA-Archiv

Excelpfad in Word-Makro in Excel-Tab auslesen


Betrifft: Excelpfad in Word-Makro in Excel-Tab auslesen von: Peter
Geschrieben am: 11.09.2019 15:57:15

Hallo,

ich habe ein Workdokument mit folgendem Code:

<pre>Sub Bild_einfuegen_Logo()

Selection.InlineShapes.AddPicture FileName:= _
"C:\Users\Peter\xxx\yyy\zzz_Logo.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End Sub</pre>

Wie kann ich es erreichen, dass dieser FileName als variable aus einer Zelle z.B.
worksheets("Worddaten").Range("I1") ausgelesen wird.

Besten Dank für eure Hilfe.

Gruss
Peter

  

Betrifft: AW: Versuch von: 1712499.html
Geschrieben am: 11.09.2019 16:20:30

Hallo,

versuche es einmal so (ungeprüft)

     Sub Bild_einfuegen_Logo()
     with getobjects("c:\temp\my_Excel.xlsx")
     f = .sheets("WordDaten").range("I1")
     end with
     
     Selection.InlineShapes.AddPicture FileName:= f, _
     LinkToFile:=False, SaveWithDocument:=True
     End Sub
     
mfg
  

Betrifft: AW: Versuch von: 1712504.html
Geschrieben am: 11.09.2019 16:35:19

Hallo Fennek,

besten Dank für Deine Hilfe.

Bezüglich "getobjects" kommt Fehlermeldung Sub oder Function nicht definiert.

Was soll ich bitte machen?

Gruss
Peter

  

Betrifft: AW: GetObject (ohne "s" owT) von: 1712506.html
Geschrieben am: 11.09.2019 16:41:05


  

Betrifft: AW: GetObject (ohne "s" owT) von: 1712513.html
Geschrieben am: 11.09.2019 17:04:10

Hallo Fennek,

besten Dank nochmals funktioniert.

Gruss
Peter

  

Betrifft: AW: Versuch von: 1712508.html
Geschrieben am: 11.09.2019 16:54:23

HI

kleiner Tip für ungeprüfte Codes:

hier ist es durchaus möglich, dass manche VBA-Schlüsselwörter nicht korrekt geschrieben sind.
man erkennt diese neben der Fehlermeldung immer daran dass die Kleinschreibung erhalten bleibt.
bei erkannten VBA-Schlüsselwörtern ist der Wortanfang immer ein Großbuchstabe, bei zusammengesetzten Schlüsselbegriffen auch mit Binnenmajuskeln.
falsch: getobjects
richtig: GetObject
daran kann man im VBA-Editor schnell so machnen Schreibfehler erkennen.

wie findet man jetzt die korrekte Schreibweise?
am einfachsten so:
lösche die Zeichen des Wortes ab dem 3. Zeichen und drücke dann STRG+ENTER
der Editor öffnet dann eine Klappliste mit den möglichen Schlüsselbegriffen und du kannst den gewünschten auswählen.

Gruß Daniel

  

Betrifft: AW: Versuch von: 1712515.html
Geschrieben am: 11.09.2019 17:05:07

Hallo Daniel,

besten Dank für den tollen Hinweis.

Gruss
Peter

Beiträge aus dem Excel-Forum zum Thema "Excelpfad in Word-Makro in Excel-Tab auslesen"