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

• #30929 Exportlaptop csendes tag Delila_1 #30928

  Új Válasz 2016-03-09 19:12:29 #30929

  Ú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

  

  Exportlaptop

  csendes tag

  válasz Delila_1 #30928 üzenetére

  Köszönöm a választ. F8-al nem indul el valamiért, az alábbit írtam be, helyes?
  Ismétlem a képek neve jpg. kiterjesztéssel a H oszlopban van, én pedig az I oszlopba akarom helyezni a miniatur képeket cellánként az összeset. Kb 16 ezer sorról van szó.

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long

  utvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"

  sor = 2
  Do While Cells(sor, "I") <> ""
  Kepneve = Cells(sor, "I")
  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

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