userforma farklı kaydet tuşu Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
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 
 
 -

Benzer Sonuçlar
No	Makro Adı
1	userforma farklı kaydet tuşu eklemek
2	userforma farklı kaydet tuşu
3	farklı kaydet ve sağ klik tuşunu disable yapma
4	"Farklı Kaydet" kutusunu göstermek ve farklı kaydetmek (Dialog Penceresi)
5	forma otomatik resim getirme
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	dosyayı farklı şekillerde kaydetme
8	hücredeki yazi karakterinin rengine göre filtreleme
9	userform'u otomatik boyutlandırma
10	"Farklı kaydet" işlemi
11	save as (farklı kaydet)
12	makrolar kutusu ve makrolar görünsün
13	herhangi bir form üzerindeki metin kutusuna girilecek karakter sayısını sınırlandırma
14	userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
15	basılan tuşu bilir büyük, küçük, sayısal
16	nesne özelliğini tek seferde değiştirme
17	verileri isim sırasına göre dizer
18	verileri isim sırasına göre dizer
19	parola değiştirme farklı kaydetle
20	userform 7 userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor

Benzer Sonuçlar

Makro Adı

userforma farklı kaydet tuşu eklemek

userforma farklı kaydet tuşu

farklı kaydet ve sağ klik tuşunu disable yapma

"Farklı Kaydet" kutusunu göstermek ve farklı kaydetmek (Dialog Penceresi)

forma otomatik resim getirme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

dosyayı farklı şekillerde kaydetme

hücredeki yazi karakterinin rengine göre filtreleme

userform'u otomatik boyutlandırma

"Farklı kaydet" işlemi