tdalon

function [opt, callstr] = plot_depfun(foo,varargin)
% PLOT_DEPFUN plots a call graph tree of the function dependencies
% SYNTAX
%     plot_depfun(foo,varargin)
%
% Ignores MATLAB function in matlabroot and any function names given in varargin.
% Uses current file in MATLAB Editor as default if no argument is passed or first argument is empty.
%
% See also depfun, mydepfun, plot_subfun (file exchange ID 46070)

tdalon

Sub MoveSelectedSections()
' Slides are copied ready to be pasted
Dim lngNewPosition As Long
'Debug.Print ""
'Debug.Print "###Move Sections..."
lngNewPosition = InputBox("Enter a destination section index:")
lngNewPosition = CInt(lngNewPosition) ' Convert String to Int
Call MoveSectionsSelectedBySlides(ActivePresentation, lngNewPosition)

End Sub

tdalon

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' https://tdalon.blogspot.com/2016/09/powerpoint-quick-search-tagged-slides.html
' References: http://stackoverflow.com/questions/26587114/powerpoint-search-box-vba

' Hidden Search TextBox
Dim osld As Slide
Dim oshp As Shape
Dim sTextToFind As String

If KeyCode <> 13 Then 'ENTER PRESSED

tdalon

function ButtonName=myquestdlg(Question,Title,Btn1,Btn2,Btn3,Default)
%MYQUESTDLG Question dialog box. Same as QUESTDLG plus solves the issue that if user press ENTER
%  it will return the Default Button and not the selected one.
% See http://tdalon.blogspot.com/2016/09/matlab-bug-questdlg.html
% Moreover the dialog window is now properly centered in the middle of the screen.
% 
% SYNTAX:
%    ButtonName=myquestdlg(Question,Title,Btn1,Btn2,Btn3,Default)
% OUTPUT
%    ButtonName (char) is empty if User ESC the dialog.

tdalon

Sub UpdateAllFields()
'
' UpdateAllFields Macro
'
'
Dim oStory As Range
Dim oField As Field
  For Each oStory In ActiveDocument.StoryRanges
    For Each oField In oStory.Fields
      oField.Update

tdalon

Sub DeleteEmptyParagraphs()
    Dim oPara As Word.Paragraph
    For Each oPara In ActiveDocument.Paragraphs
        If Len(oPara.Range) = 1 Then oPara.Range.Delete
    Next
End Sub

Sub DeleteEmptyParagraphsWithSpaces()
    Dim oPara As Word.Paragraph
    Dim var

tdalon

function file=EditorGetFile
% EditorGetFile get current file opened in Editor
%
% SYNTAX:
%    file=EditorGetFile
% OUTPUT:
%    file (char): fullpath

edhandle = com.mathworks.mlservices.MLEditorServices.getEditorApplication;
file = edhandle.getActiveEditor.getDocument.getFilename;

tdalon

let
    // Get total
    Source = Json.Document(Web.Contents(JiraRootUrl&"/rest/api/2/search?jql=filter="&JiraFilterId&"&maxResults=1&fields=["&JiraFields&"]")),
    total = Source[total],
    
    GetChunk = (previousTable, maxResults as number) as table => 
    let        
        startAt = if previousTable = null then 0 else Table.RowCount(previousTable) + 1,
        maxRes = if (maxRows - startAt < maxResults) then maxRows - startAt else maxResults,
        MergedTable = if (startAt > total) or ((maxRows>0) and (startAt > maxRows)) then previousTable else 

tdalon

' https://tdalon.blogspot.com/2020/10/outlook-email-to-tasks-calendar.html
Public Sub CopyToTasksCalendar()
' Calls GetCurrentItem

Dim objAppt As Outlook.AppointmentItem
Dim Item As Object                           ' works with any outlook item

' OPTIONS
Dim bAskAttach As Boolean
bAskAttach = False                           ' Change to True if you want to be asked to attach. Preferred: False and keep link

tdalon

; Source: https://www.autohotkey.com/boards/viewtopic.php?f=6&t=17228
#SingleInstance,Force
global settings:=new xml("Workspace")
if(FileExist("workspaces.ico"))
	Menu,Tray,Icon,Workspaces.ico
Gui()
return
show:
WinShow,% hwnd([1])
return