This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Hướng dẫn liệt kê danh sách file trong folder Google Drive - GDrive.VIP | |
// GDRIVE.VIP: Dán ID folder vào dưới | |
var folderId = 'ID Folder'; | |
// Function 1: Liệt kê tất cả folder và viết vào sheet. | |
function listFolers(){ | |
getFolderTree(folderId, false); | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
let jspdf = document.createElement("script"); | |
jspdf.onload = function () { | |
let pdf = new jsPDF(); | |
let elements = document.getElementsByTagName("img"); | |
for (let i in elements) { | |
let img = elements[i]; | |
if (!/^blob:/.test(img.src)) { | |
continue; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' Save presentation as pptm then create a macro in "View > Macros", run it | |
Sub MkVideo() | |
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then | |
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\video.wmv", _ | |
UseTimingsAndNarrations:=True, _ | |
VertResolution:=1080, _ | |
FramesPerSecond:=60, _ | |
Quality:=100 | |
Else: MsgBox "There is another conversion to video in progress" | |
End If |