Hirdetés
Legfrissebb anyagok
PROHARDVER! témák
- Azonnali fotós kérdések órája
- 5.1, 7.1 és gamer fejhallgatók
- Kormányok / autós szimulátorok topikja
- 4K vs 8K – Megéri-e a 8K TV 2026-ban?
- Vezeték nélküli fülhallgatók
- AMD vs. INTEL vs. NVIDIA
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen egeret válasszak?
- Milyen billentyűzetet vegyek?
- Projektor topic
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
válasz
Mzmatus
#3194
üzenetére
Nem tudom, hogy az AutoCAd VBA mennyire tér el úgy általában a "sima" VBA-tól, de ezzel tehetsz egy próbát (itt egy commandbutton kattintásra lefutó VBA kódot adok, de nem az a lényeg, hanem ami a SUB-n belül van)
Private Sub CommandButton1_Click()
Dim MyFileDialog As Object
'Itt 4 paraméter lehet (msoFileDialogFilePicker, msoFileDialogFolderPicker, msoFileDialogOpen, msoFileDialogSaveAs)
Set MyFileDialog = Application.FileDialog(msoFileDialogOpen)
MyFileDialog.Show
End Sub
Új hozzászólás Aktív témák
Aktív témák
Új fizetett hirdetések
- Asus Dual Radeon RX 6500 XT 4GB
- BESZÁMÍTÁS! Asus Rog Strix Z390-F Gaming alaplap garanciával hibátlan működéssel
- BESZÁMÍTÁS! 4TB WD RED WD40EFAX HDD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! MSI B650 R7 8700F 64GB DDR5 1TB SSD RX 7800 XT 16GB Montech XR TG FSP 750W
- BESZÁMÍTÁS! ASUS H610M i5 12400F 16GB DDR4 1TB SSD RTX 3050 6GB Endorfy Signum 300 TG MSI 650W
Üzleti előfizetők hirdetései
- GYÖNYÖRŰ iPhone 12 Mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4167, 94% Akksi
- BESZÁMÍTÁS! Asrock Z790 i9 13900K 64GB DDR5 1TB SSD RTX4080 16GB Aerocool P500B Digi ARGB ADATA 850W
- GAMER PC! Ryzen 7 7800X3D / RTX 5080 / B650 Strix / 32GB 6000MHz / 1000w Gold! BeszámítOK
- Lian Li LCD-s 360mm-es vízhűtés akciós áron eladó!
- Shining3D EinScan Pro 2X 3D szkenner
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

