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

• #9868 Delila_1 veterán Mr.Csizmás #9866

  Új Válasz 2011-03-31 15:33:17 #9868

  Ú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 Mr.Csizmás #9866 üzenetére

  A képet a beillesztés előtt szabd méretre!

  Sub Logo()
  utvonal = "F:\Temp\"
  FN = "filename.gif"
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Cells(3, 1).Select 'Ez az A3-ba teszi, átírhatod
  ActiveSheet.Pictures.Insert (utvonal & FN)
  Next
  End Sub

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