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

• #6851 mr.nagy tag Fire/SOUL/CD #6765

  Új Válasz 2010-04-10 09:32:40 #6851

  Ú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 #6765 üzenetére

  Szia!

  Még egy kis segítség kellene! Most így néz ki a kód:
  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").Height - myPic.Height) / 2)
  End Sub

  Azt, hogyan lehetne megoldani, hogy vizsgálja meg van e már kép az adott helyen és ha igen akkor törölje?

  Üdv,
  András

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