تغییر همزمان اندازه عکس ها در Word
با سلام .
چون جالب بود این جا می زارم کسی ایده دیگه ای نداره ؟
سوال : چگونه اندازه همه تصاویر در ورد را به طور همزمان تغییر دهیم ؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نقل قول:
پاسخ :
باید از ماکرو (ویژوال بیسیک) استفاده کنید. تب Developer در Word رو فعال کنید.
در تب Developer، روی Macro کلیک کنید، یک اسم دلخواه بنویسید و روی Create کلیک کنید.
کل متن از قبل نوشته شده را پاک کنید و متن زیر را Paste کنید، ذخیره کنید و از ادیتور ویژوال بیسیک خارج شوید.
[PHP]Sub PicScale()
Dim PecentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
Sub PicSize()
Dim PicHeigh, PicWidth As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PicHeight = InputBox("Enter pictures height (pixels)", "Resize Picture", 100)
PicWidth = InputBox("Enter pictures width (pixels)", "Resize Picture", 200)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.Height = PicHeight
.Width = PicWidth
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.Height = PicHeight
.Width = PicWidth
End With
Next oshp
End Sub[/PHP]
برای اعمال اندازه روی عکس ها، عکس هایی که قصد دارید تغییر اندازه بدین انتخاب کنید (برای همه عکس ها Ctrl+A). بعد Macro رو بزنید.
برای تغییر اندازه عکس ها بر حسب درصد ماکروی PicScale را اجرا کنید و عدد را بر حسب درصد وارد کنید.
برای تغییر اندازه عکس ها بر حسب پیکسل، ماکروی PicSize را اجرا کنید و در کادر اول ارتفاع و در کادر دوم عرض عکس را وارد کنید.
مشکل بازشدن فایل درورد2013
باسلام
چراگاهی ازاوقات بعضی ازفایل هادر ورد2013یاکلاً مجموعه آفیس2013باز نمی شود ،برنامه ورد شروع بکار می کند و در opening in protected viewثابت می ماندواصلاً برنامه باز نمی شوددرضمن همان فایل درورد2007به راحتی باز می شود.:n29: