add save key to userforma Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Userformunuza atayacağınız bir command button'a yazacağınız; 
Kod: 
  
Dim iChartType As Long

Private Sub UserForm_Activate()

'Initialise the selections 
cb3D = True 
obColumn = True 
obBitmap = True

End Sub

Private Sub btnOK_Click() 
Unload Me 
End Sub

Private Sub cb3D_Click() 
Select Case True 
Case obColumn 
    obColumn_Click 
Case obLine 
    obLine_Click 
Case obArea 
    obArea_Click 
End Select 
End Sub

Private Sub obColumn_Click() 
iChartType = IIf(cb3D, xl3DColumn, xlColumnClustered) 
UpdateChart 
End Sub

Private Sub obLine_Click() 
iChartType = IIf(cb3D, xl3DLine, xlLine) 
UpdateChart 
End Sub

Private Sub obArea_Click() 
iChartType = IIf(cb3D, xl3DArea, xlArea) 
UpdateChart 
End Sub

Private Sub obBitmap_Click() 
UpdateChart 
End Sub

Private Sub obMetafile_Click() 
UpdateChart 
End Sub

Private Sub UpdateChart()

Dim oCht As Chart, lPicType As Long

'Find the chart object on the sheet 
Set oCht = Sheet1.ChartObjects(1).Chart

'Recalculate the sheet to give us a new set of random points 
Sheet1.Calculate

'Do we want a metafile or a bitmap? 
'If doing a 1 to 1 copy, xlBitmap will give a 'truer' rendition. 
'If scaling the image, xlPicture will give better results 
lPicType = IIf(obMetafile, xlPicture, xlBitmap)

'Update the chart type and copy it to the clipboard, as seen on screen 
With oCht 
    .ChartType = iChartType 
    .CopyPicture xlScreen, lPicType, xlScreen 
End With

'Paste the picture from the clipboard into our image control 
Set imgChtPic.Picture = PastePicture(lPicType)

End Sub

Private Sub btnSave_Click()

Dim vFile As Variant, sFilter As String, lPicType As Long, oPic As IPictureDisp

'Create an appropriate filter, based on the bitmap/picture option in the dialog 
sFilter = IIf(obMetafile, "Windows Metafile (*.emf),*.emf", "Windows Bitmap (*.bmp),*.bmp")

'Get the filename to save the bitmap to 
vFile = Application.GetSaveAsFilename(initialfilename:="", filefilter:=sFilter)

If vFile  False Then 
    'Get the type of bitmap 
    lPicType = IIf(obMetafile, xlPicture, xlBitmap)

'Copy a picture on the chart with the correct format to the clipboard 
    Sheet1.ChartObjects(1).Chart.CopyPicture xlScreen, lPicType, xlScreen

'Retrieve the picture from the clipboard... 
    Set oPic = PastePicture(lPicType)

'... and save it to the file 
    SavePicture oPic, vFile 
End If

End Sub  
 -

No	Macro Name
1	add save key to userforma
2	find-delete-change-save codes2
3	excel operators hk
4	backup
5	userforma save as key
6	writes b1 date to b2
7	Export selected cells to text file
8	sheet
9	add username and password
10	save only worksheets
11	Getting information by userform and data selection
12	deletes data
13	closed c: est.xls file will be opened and saved after c: userform1.frm is added
14	fonts in word
15	row Â add copy sort to get subtotals.
16	add the current time to the cell
17	Attendance Codes workbook-level tasks & nbsp; it will help you perform it easily and with minimal effort. & Nbsp; Create a Backup of a Current Workbook: This is one of the most useful macros that can help you save a backup file of a current workbook. Saves a backup file in the directory where your current file is saved. & Nbsp; It will also add the name of the file to the current date.
18	save book you specify name - notifies you by message
19	Undo cells with 0
20	excel fonts 2

Excel Free Macros (VBA)

Add Save Key To Userforma

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords