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

• #6852 mr.nagy tag mr.nagy #6851

  Új Válasz 2010-04-10 10:30:31 #6852

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

  Időközben magam is törtem a felyem és egy ilyen kódot csináltam:
  Private Sub CommandButton1_Click()
  
  Sheets("tábla").Activate
  
  On Error Resume Next
  ActiveSheet.Shapes("kép").Select
  Selection.Delete
  
  On Error GoTo 0
  
  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)
  myPic.Name = ("kép")
  End Sub

  Eddig úgy tűnik, hogy működik, de ha van jobb özlet nyitott vagyok rá és megköszönöm!

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