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

• #6764 mr.nagy tag Fire/SOUL/CD #6763

  Új Válasz 2010-04-03 10:25:42 #6764

  Ú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 Fire/SOUL/CD #6763 üzenetére

  Szia!

  Nagyon köszönöm!

  A házi feladatot így oldottam meg:
  Private Sub CommandButton1_Click()
  
  Sheets("tábla").Activate
  
  Dim myPic As Object
  Set myPic = Sheets("tábla").Pictures.Insert(Sheets("adatok").Range("C1"))
  myPic.Left = Sheets("tábla").Range("C5").Left + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
  myPic.Top = Sheets("tábla").Range("C5").Top + ((Sheets("tábla").Range("C5").Width - myPic.Width) / 2)
  End Sub

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