Fråga : Sätt automatiskt in föreställer/foto uttrycker in

Jag har en mall att jag sätter in foto från plats in i och undrade, om det finns a långt som gör detta, genom att tillfoga något, sorterar automatiskt av anknyter?? någon skulle rådgivning apreciateds!! Regards " klar "

Svar : Sätt automatiskt in föreställer/foto uttrycker in

Denna är en makro för uttrycka VBA:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

UnderInsertPictures ()
Dunkel strFolder som stränger
Dunkelt strFile som stränger
Dunkel ilsh som InlineShape

strFolder = ”C:\MyFolder”,
strFile = Dir$ (strFolder & ”\ *.jpg”)
Gör till strFile = "",
    Fastställd ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder & ”\” & strFile, falskt, riktigt, ActiveDocument.Bookmarks (”\ EndOfDoc”). Spänna),
    strFle = Dir$ ()
Kretsa
Avsluta suben
Andra lösningar  
 
programming4us programming4us