با سلام خدمت اساتید محترم
در کد زیر در مرحله اخر که بارنگ قرمز مشخص شده عکسی با پسوند jpg روی دستکتاپ ذخیره میشه حالا می خواهم اون تصویر بعد از ذخیره شدن به صورت خودکار باز بشه و برای کاربر نمایش داده بشه. ممنون
در کد زیر در مرحله اخر که بارنگ قرمز مشخص شده عکسی با پسوند jpg روی دستکتاپ ذخیره میشه حالا می خواهم اون تصویر بعد از ذخیره شدن به صورت خودکار باز بشه و برای کاربر نمایش داده بشه. ممنون
کد:
Private Sub CommandButton8_Click()
CommandButton9.Enabled = True
On Error Resume Next
With Worksheets("print3")
.Select
.Range("A1:k5").Clear
End With
count = count + 5
If count > rrow + 6 Then
MsgBox "داده اي براي نمايش وجود ندارد"
Exit Sub
End If
'On Error Resume Next
With Worksheets("print2")
.Range(.Cells((count) - 4, 1), .Cells((count), 11)).Copy Destination:=Worksheets("print3").Range("A1")
For c = 1 To 11
Worksheets("print3").Columns(c).ColumnWidth = .Columns(c).ColumnWidth
Next c
End With
If Sheets("print3").Range("a1") <> Empty Then
Sheets("etelaat").Select
Range("k2:q2").Select
Selection.Copy
Sheets("print3").Select
Range("M1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
For sht = 2 To Sheets.count
If Sheets("print3").Range("n1") = Sheets(sht).Name Then
For i = 1 To 7
Sheets(sht).Cells(1, i + 16) = Sheets("print3").Cells(1, i + 12)
Next i
For i = 1 To 11
Sheets(sht).Cells(3, i + 16) = Sheets("print3").Cells(1, i)
Next i
For i = 1 To 11
Sheets(sht).Cells(4, i + 16) = Sheets("print3").Cells(2, i)
Next i
For i = 1 To 11
Sheets(sht).Cells(5, i + 16) = Sheets("print3").Cells(3, i)
Next i
For i = 1 To 11
Sheets(sht).Cells(6, i + 16) = Sheets("print3").Cells(4, i)
Next i
For i = 1 To 11
Sheets(sht).Cells(7, i + 16) = Sheets("print3").Cells(5, i)
Next i
End If
Next sht
Dim shp As Shape
sPath = Environ("USERPROFILE") & "\Desktop\test"
Folder = Dir(sPath, vbDirectory)
If Folder = vbNullString Then
MkDir (sPath)
End If
strImageName = "test"
[SIZE=2]Sheets(Sheet6.Range("n1").Value).Activate
Set shp = ActiveSheet.Shapes("Group 48")[/SIZE]
shp.Select
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
[COLOR=#ff0000][SIZE=4] .Export (sPath & "\" & strImageName & ".jpg")[/SIZE][/COLOR]
End With
oDia.Delete
End If
End Sub
کامنت