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

• #31481 Delila_1 veterán teacherhajni #31479

  Új Válasz 2016-05-08 07:14:02 #31481

  Ú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 teacherhajni #31479 üzenetére

  Szívesen.

• #31478 Delila_1 veterán teacherhajni #31477

  Új Válasz 2016-05-07 14:48:24 #31478

  Ú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 teacherhajni #31477 üzenetére

  Próbáld így:

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  Dim usor As Long
  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = 1 To usor
  If Cells(sor, "A") = "" Then GoTo Tovabb
  Kepneve = Cells(sor, "A") & ".jpg"
  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
  Rows(sor).RowHeight = 130
  Tovabb:
  Next
  End Sub

• #31476 Delila_1 veterán teacherhajni #31475

  Új Válasz 2016-05-07 11:41:19 #31476

  Ú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 teacherhajni #31475 üzenetére

  Modulba tedd a lenti makrót.

  Sub Kepek()
  Dim Kepneve As String, utvonal As String, sor As Long
  
  utvonal = "C:\Users\Public\Pictures\Sample Pictures\"
  sor = 2
  Do While Cells(sor, "A") <> ""
  Kepneve = Cells(sor, "A") & ".jpg"
  Rows(sor).RowHeight = 160
  
  With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
  .Left = Columns(4).Left
  .Top = Rows(sor).Top
  .Height = 114
  End With
  sor = sor + 1
  Loop
  End Sub

  Ez a makró valószínűleg 2003-nál régebbi verziókban is fog működni, de mindenesetre nézd meg a téma összefoglaló utolsó bekezdését.

  "helyeződjenek át a cellával" – ez akkor történik meg, ha a teljes sort helyezed át.

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