PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : ثابت نگه داشتن object یا shape روی یک شیت


ctc
2019/04/24, 19:18
سلام
چطور میشه یک shape رو ثابت نگه داشت روی یک شیت یعنی اسکرول بالا پایین شد باشه و چپ و راست شد هم باشه .
ctc
2019/04/24, 22:48
بالا...
majid_mx4
2019/04/24, 23:09
با سلام

میتوانید از فایل ضمیمه استفاده نمایید.

توضیح :بنده اسکرول شدن را توصیه نمی کنم چون شیپ مورد نظر ممکن است روی اطلاعات را بپوشاند به همین دلیل دستورات زیر را توصیه میکنم.

دستور اول ایجاد شیپ


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



دستور دوم حرکت آن به محض انتخاب یک سلول که درمحیط ماکرو روی شیت مورد نظر در اینجا شیت 1 کلیک کرده و ماکروررا اضافه میکنید

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

پایدار باشید میر
M_ExceL
2019/04/24, 23:34
سلام
چطور میشه یک shape رو ثابت نگه داشت روی یک شیت یعنی اسکرول بالا پایین شد باشه و چپ و راست شد هم باشه .
سلام
از فایل زیر هم می تونید الگو بگیرید :
بعد از باز کردن فایل ماکروهای اون او فعال کنید سپس فایل رو ببندید و مجددا اجرا کنید
اکنون با اسکرول کردن نتیجه رو خواهید دید.
یا حق.
ctc
2019/04/25, 11:11
سپاس ممنون خیلی عالی بود.
نمیشه بدون کلیک همینجوری رو صفحه همراه با ما بیاد....؟
majid_mx4
2019/04/25, 18:29
با سلام

در اینصورت باید از فایل جناب M_excel استفاده نمایید.

موفق باشید
SSM
2021/05/10, 22:12
سلام
از فایل زیر هم می تونید الگو بگیرید :
بعد از باز کردن فایل ماکروهای اون او فعال کنید سپس فایل رو ببندید و مجددا اجرا کنید
اکنون با اسکرول کردن نتیجه رو خواهید دید.
یا حق.

سلام،دوست عزیز من فایل نمونه رو دانلود کردم بسیار عالی بود،فقط یک سوال چطور میتونم از این فایل برای ثابت نگه داشتن نمودار استفاده کنم،لطفا مراحل را توضیح بدید ممنون میشم.خیلی ممنونم