Inserarea de imagini și imagini ale stratul de celule Excel, Excel macro-uri

Este nevoie de un macro pentru a plasa imaginea (imagine) pe o foaie Excel?

Utilizați funcția VstavitKartinku. ceea ce va permite să inserați o imagine în celula selectată (sau intervalul de celule).

Când apelați o funcție, puteți seta opțiuni avansate pentru a specifica dacă pentru a ajusta imaginea (sau de celule) în înălțime și lățime.

Dacă aveți nevoie pentru a încorpora o mulțime de imagini pe o foaie Excel - care va ajuta să adăugați în care vă permite să căutați imagini într-un folder specificat și introduce o imagine într-o celulă sau note

Acest exemplu demonstrează posibilele aplicații insera imagini funcționale:

Și aici este funcția (copiați și inserați codul într-un modul standard pentru a fi capabil de a insera imagini într-o singură linie de cod de la orice macro):

cum să folosească imaginea macro, insera imagini, vă mulțumesc
InsertPicture Sub ()
Dim FD Ca FileDialog
Dim iFileName ca șir
Set FD = Application.FileDialog (msoFileDialogFilePicker)
cu FD
.Filters.Clear
.Filters.Add "AnA ðèñóíêè", "*. *"
.Filters.Add "JPG", "* .jpg"
.Filters.Add "Ðèñóíêè", "* .bmp"
.Filters.Add "PNG", "* .png"
.Filters.Add "tif", "* .tif"
.FilterIndex = 2
.AllowMultiSelect = false
.InitialFileName = ThisWorkbook.Path
.Titlu = "Äîáàâëåíèå ðèñóíêà"
.BUTTONNAME = "Âñòàâèòü"
Dacă .Show = False Atunci
„MsgBox "Äù iA óêàçàëè íóæíûé OAEE!", 48, "Îøèáêà"
Exit Sub
altfel
iFileName = Dreapta (.SelectedItems (1), Len (.SelectedItems (1)) - InStrRev (.SelectedItems (1), ""))
Dacă pe dreapta (UCASE (iFileName), 4) = ".XLS" Atunci iFileName = stânga (iFileName, Len (iFileName) - 4)
End If
Cu End
Set FD = Nimic
ActiveSheet.Pictures.Insert (iFileName); selectați - Aici am completat cunoștințele mele de VBA.
end Sub

Poate că numele de fișier o coloană set incorect
Dacă nu înțeleg, - apel pe Skype, ajuta

Suprastructura am. All'm face, se ocupă de toate imaginile și apoi scrie că zero stocate. (

Bună ziua. Îmi pare rău, dar nu pot încărca imagini dintr-un fișier într-un dosar. Programul vede imaginea. dar nu le salva.
Se pare că fac ceva greșit. Ajută-te rog. Scrieți secvența dacă este posibil.

Alo Am o problemă cu găsirea de imagini în dosarul. Există un tip de articol este „123/123“, iar titlul fotografiei „123123“. Poate că atunci când caută un simbol ștergere „/“, cu o formulă pentru a gestiona numele de fișier din fila Advanced? Dacă este să-mi spui cu formula. Multumesc anticipat.

Pot schimba o imagine în Excel, astfel încât acesta este păstrat atunci când salvați XLS corpul în sine?
Dacă este posibil, să explice cum se face la toate (sper că perekladu la 1C algoritm, am înțeles principal).
Multumesc anticipat.

PS nevoia de export din vechiul 1C (care nu au voie să faceți upgrade), care a fost o problemă în exportul Excel (neîncărcat cu erori).

Andrew, aș fi încercat:
(Parerea mea: dacă activați imaginea - lățimea imaginii trebuie să fie adaptate nu la lățimea celulei, iar la înălțimea celulei.)

Mulțumesc. Faptul că Excel insereaza imagini de referință - nu e mare. Chiar și bine. Schimbarea imaginii si schimba-l într-un fișier.
Pot să vă rugăm să spuneți cum să mutați imaginea ușor spre stânga și ușor în sus.
Înainte de cea utilizată:
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Dar, cu noul cod nu funcționează.

Macro pentru decuparea imaginii:

Prieteni. Am pus o imagine de imagine, mai degrabă decât un link. Macro doar înregistrate.

Aceasta este întrebarea: cum să facă un macro pentru decuparea imaginilor? În imaginea de pe părțile laterale ale câmpului alb, acestea ar trebui să fie eliminate.
Am încercat să includă înregistrarea macro și a decupa imaginea. Totul este bine, dar performanța imaginii macro înregistrată nu este decupată.

Codul este după cum urmează:
Sub Makros3 ()
Range ( "C5"). Selectați
ActiveSheet.Pictures.Insert (_
Excel.Application.ActiveWorkbook.Path "\ Previzualizare A.jpg" _
); selectați
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementLeft 22.6299212598
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0

Range ( "O5"). Selectați
ActiveSheet.Pictures.Insert (_
Excel.Application.ActiveWorkbook.Path "\ Previzualizare B.jpg" _
); selectați
Selection.ShapeRange.IncrementTop -4.5
Selection.ShapeRange.IncrementLeft -24.75
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 4.5354330709
Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0
end Sub

Vă rugăm să consilieze cum să facă o imagine a culturilor macro.

Bună ziua, Konstantin
Programul meu nu este conceput pentru acest scop.
Soluție (instrucțiuni detaliate) pot fi ușor de găsit pe internet, în cazul în care conduci o baie de gheață Yandex «Excel selecție de fotografii din lista drop-down“

Te rog spune-mi cum să introduceți o imagine din acest fișier Excel aceeași (de exemplu, cu o altă foaie)? Sarcina - ai nevoie, care ar schimba doar logo-ul pe hârtie cu antet dacă selectați din listă. Și ce ar fi acest dosar a fost un stand-alone (nu este atașat la unitatea / folder de pe un anumit computer)

Vyacheslav, este foarte problematică
Macro-urile pot ține evidența doar de tipul de SelectionChange eveniment - schimbarea obiectului selectat, și că acest lucru se aplică numai la celule;
sau pentru a urmări foaia de inserare sau diagramă - dar insera imagini, din păcate, nici un fel.

Puteți încerca un interval de 1 secundă pentru a verifica numărul de imagini pe o coală, - și în cazul în care este crescut cu 1 - pentru a concluziona că se introduce o imagine nouă.
Dar aceasta este o idee foarte proastă, și o muncă macro foarte dificilă.

Bună, folosind o funcție, puteți urmări un astfel de eveniment ca inserarea imagini în Excel? Acesta este scopul meu este de a rula un macro introdus în imaginea de către utilizator Excel.

Cea mai simplă opțiune - pentru a copia întreaga celulă (imagine, de asemenea, copiat)

Dacă avem nevoie de modul „corect“ - este necesar pentru a ciclului ciclu prin toate imaginile de pe foaia, verificarea fiecare, dacă este peste celula B2 (analiza de proprietate TopLeftCell, dimensiunea imaginii și dimensiunea celulei), și apoi, găsirea unul sau mai potrivite imagini, copia le, apoi poziționați o copie a E5 celule

Diferența în complexitatea sentimentul?) Pentru că, copiați celula cu o imagine

Spune-mi, te rog, și cum puteți copia o imagine de la o celulă la alta.
De exemplu, direct din celula B2 în celula E5?