[حل شده] پیرو تاپیک قبلی خروجی عکس از اکسل

[kazem1359]

با سلام ببخشین پیرو موضوع خروجی عکس از اکسل به یک مشکل کوچک برخوردم اون اینه که وقتی عین کد داده شده را در یوزر فرم طراحی شده محیط vba و دکمه CommandButton قرار میدهم هیچ عکس و العملی نشان نمیده علت چیست؟
به نظر خودم شاید مشکل از قسمت کد Private Sub CommandButton1_Click() هست که خود سیستم میاره ولی کد شما Sub m_exel هست هر کاری کردم نشد اصلاح کنم چطوری باید اصلاح شود.
ممنون باز هم شرمنده

[M_ExceL]

سلام،
شما می بایست کد داخل سابروتین رو داخل رویداد کلیک باتن مورد نظر پیست کنید
کد شما باید به این صورت باشد :

Private Sub CommandButton1_Click()
Dim shp As Shape
sPath = ActiveWorkbook.Path


strImageName = "test"
Set shp = ActiveSheet.Shapes("Picture 1")
shp.Select
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.TransparentBackground = msoFalse
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
Selection.ShapeRange.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
Application.Selection.CopyPicture
Set oDia = ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height)
Set oChartArea = oDia.Chart
oDia.Activate
With oChartArea
    .ChartArea.Select
    .Paste
    .Export (sPath & "\" & strImageName & ".jpg")
End With
oDia.Delete

End Sub

[kazem1359]

سلام
شرمنده امتحان کردم نشد امکانش هست روی یک فایل برایم درست کنید ؟
کد قبلی که تو دستکتاپ ذخیره میشه کار میکنه ولی کد جدید هیچی در محل فایل اصلی ذخیره نمیشه
ممنون

[M_ExceL]

سلام،
روی فایلی که در تاپیک قبل پیوست کردید قرار دادم
بررسی کنید