سلام
چطور میشه یک shape رو ثابت نگه داشت روی یک شیت یعنی اسکرول بالا پایین شد باشه و چپ و راست شد هم باشه .
چطور میشه یک shape رو ثابت نگه داشت روی یک شیت یعنی اسکرول بالا پایین شد باشه و چپ و راست شد هم باشه .
Sub Creator() Dim shp As Shape Set shp = ActiveSheet.Shapes.AddShape(1, 100, 10, 60, 60) shp.TextFrame.Characters.Text = "I will follow" shp.Name = "MyButton" End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim sh As Shape, r As Range Set sh = ActiveSheet.Shapes("MyButton") Set r = ActiveCell sh.Top = r.Offset(-1, -2).Top sh.Left = r.Offset(-1, -2).Left End Sub
کامنت