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

• #6763 Fire/SOUL/CD félisten mr.nagy #6762

  Új Válasz 2010-04-03 09:52:02 #6763

  Ú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

  

  Fire/SOUL/CD

  félisten

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

  Hali!

  Private Sub CommandButton1_Click()
  Dim myPic As Object
  Set myPic = ActiveSheet.Pictures.Insert(Range("A1"))
  myPic.Left = ActiveSheet.Range("F1").Left + ((ActiveSheet.Range("F1").Width - myPic.Width) / 2)
  myPic.Top = ActiveSheet.Range("F1").Top
  MsgBox (ActiveSheet.Range("F1").Width)
  End Sub

  Ebből adódóan házi feladat, hogy hogy lehet függőlegesen is középre igazítani. (A példa alapján nem jelenthet gondot)

  Fire.

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