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

• #18708 nimmy001 csendes tag nimmy001 #18706

  Új Válasz 2013-08-06 14:20:34 #18708

  Ú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

  

  nimmy001

  csendes tag

  válasz nimmy001 #18706 üzenetére

  Úgy tűnik, erre találtam megoldást (ha másnak is kéne):

  ActiveSheet.Pictures.Insert(Filename).Select
  If Val(Application.Version) > 12 Then
  dWidth = Selection.Width
  dHeight = Selection.Height
  Selection.Cut
  ActiveSheet.Shapes.AddPicture(Filename, False, True, 100, 100, dWidth, dHeight).Select
  End If

  (a 100, 100 a pozíciót adja meg, lehet más is, 0, 0 a táblázat bal felső sarka például)

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