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

• #27552 poffsoft veterán

  Új Válasz 2015-06-30 10:15:06 #27552

  Ú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

  

  poffsoft

  veterán

  sziasztok!
  Adott egy "nyomógombom", amit mindig az aktuális cellában jelenítek meg (Delila, lehet hogy emlékszel még rá).
  Amikor a shape közelébe ("mousemove"?) ér a kurzor, átvált a mozgatás formára ("kettős nyíl").
  Ezt hogyan lehetne letiltani? Letiltani a shape mozgatását, átméretezését?

  Set zBtn = ActiveWorkSheet.ActiveCell.Parent.Shapes.AddShape(msoShapeBevel, x, y, x1, y1)
  zBtn.Select
  With Selection
  .Name = "btnEdit" 'assign name for this shape
  .ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255) 'Blue button colour
  .ShapeRange.Line.Visible = msoFalse 'no lines on button
  .OnAction = "AddButtons" '<< macro assigned to this button
  End With

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