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

• #31479 teacherhajni csendes tag Delila_1 #31478

  Új Válasz 2016-05-07 17:59:59 #31479

  Ú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

  

  teacherhajni

  csendes tag

  válasz Delila_1 #31478 üzenetére

  Nagyon szépen köszönöm! Ez kézzel több órás munka volt eddig

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

  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  usor = Range("A" & Rows.Count).End(xlUp).Row

  For sor = 1 To usor
  Kepneve = Cells(sor, "A") & ".jpg"
  If Cells(sor, "A") = "" Then GoTo Tovabb
  file = Dir(utvonal & Kepneve)
  If file = "" Then GoTo Tovabb
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(4).Left
  .Top = Rows(sor).Top
  .Select
  Selection.ShapeRange.LockAspectRatio = msoTrue
  Selection.ShapeRange.Height = 120
  End With
  If Kepneve = "" Then GoTo Tovabb
  Rows(sor).RowHeight = 130

  Tovabb:
  Next
  End Sub

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