Excel- pomoc s Visual Basicem

[xvojta]

Zdravím, nějakou dobu dělám v excelu, ale najednou mi přestal stačit a proto bych potřeboval pomoc s VBA.

1) jak udělám pomocí tlačítka, příkaz "Uložit sešit jako"
2) jak udělám pomocí tlačítka, příkaz "Tisk sešitu jako"
3) když hodnota buňky rovná se 1, tak chci aby se v jiné buňce zobrazil obrázek .jpg

Díky

add 3)


excelApp.Goto excelDoc.Sheets(sheetIns).Cells(8, 7)
'- doufam jasny... sheets je cislo listu, pripadne ActiveSheet, cells sou 'souradnice bunky

excelDoc.Sheets(sheetIns).Pictures.Insert(pictureN ame).Select
' (vlozi obrazek ze souboru v pictureName)


add2)
nevim co je presne mysleno "tisk sesitu jako" ale
doporucuju zkusit fci. PrintOut

expression.PrintOut(Background, Append, Range,
OutputFileName, From, To, Item, Copies, Pages,
PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX,
ManualDuplexPrint, PrintZoomColumn,
PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)

napr.


excelDocument.PrintOut ActivePrinter:=currentPrinter


add 1)
chces jen vyvolat nabidku saveas nebo primo ulozit soubor?
nasl. kod je primo pro ulozenim souboru


Private Sub word_Click()

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.DisplayAlerts = True
Set wordDoc = wordApp.Documents.Add() 'vytvori novy dokument / nebo ' Open pro otevreni stavajiciho
wordDoc.SaveAs "C:\Temp\obr.doc"
Set wordDoc = Nothing
wordApp.Quit True
Set wordApp = Nothing
End Sub