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

• #9303 mr.nagy tag mr.nagy #9302

  Új Válasz 2011-02-01 20:38:29 #9303

  Ú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

  

  mr.nagy

  tag

  válasz mr.nagy #9302 üzenetére

  Közben találtam egy megfelelő kódot, közzé teszem hátha másnak is jó lesz:
  Sub Insert_Pic()
  Dim URL As String
  URL = Worksheets("Munka2").Range("A1").Value
  Range("A5").Select
  ActiveSheet.Pictures.Insert(URL).Select
  Selection.ShapeRange.LockAspectRatio = msoFalse
  Selection.ShapeRange.Height = 140
  Selection.ShapeRange.Width = 200
  Selection.ShapeRange.Rotation = 0#
  End Sub

  Minden esetre köszönöm Fire a segítséged!

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