Új hozzászólás Aktív témák

• #30926 Delila_1 veterán Exportlaptop #30925

  Új Válasz 2016-03-09 18:00:41 #30926

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Exportlaptop #30925 üzenetére

  Másold be modulba a lenti makrót (lásd Téma összefoglaló).

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  
  utvonal = "D:\Képek\Almappa\" '***
  
  sor = 2
  Do While Cells(sor, "I") <> ""
  Kepneve = Cells(sor, "I") & ".jpg" '*****
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(8).Left
  .Top = Rows(sor).Top
  .Height = Rows(sor).Height
  End With
  sor = sor + 1
  Loop
  End Sub

  A ***-os soba a saját útvonalad kerüljön.
  A *****-os sornál nem kell az & ".jpg", ha a kiterjesztést tartalmazzák a képnevek. Ha más a kiterjesztés, azt írd a jpg helyére.

Új hozzászólás Aktív témák