ateneva

Sub Delete_All_but_Title()

Dim p As Presentation
Set p = ActivePresentation

Dim PPS As Slide
'***************************
For Each PPS In p.Slides
   
Dim i As Shape

ateneva

Sub Delete_Slides_TextinTitle()

Dim Ppres As Presentation
Set Ppres = ActivePresentation

Dim PPS As Slide
Dim StrNo As Long
Dim Titel As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For Each PPS In Ppres.Slides

ateneva

Sub Delete_Slides_other_criteria()

Dim p As Presentation
Set p = ActivePresentation
     
Dim Sh As Shape
Dim PPS As Slide
Dim i As Integer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ateneva

Sub Delete_Slides_on_SlideIDs()

Dim Ppres As Presentation
Set Ppres = ActivePresentation

Dim Sh As Shape
Dim i As Integer
Dim PPS As Slide
'******************************************************
'used in Delivery Reviews

ateneva

import pandas as pd
import numpy as np
import statsmodels
import statsmodels.api as sm
import statsmodels.formula.api as smf

import os;
path ='C:/Users/hp/PycharmProjects/datascience/'
os.chdir(path)
os.getcwd()

ateneva

Sub S()

Dim Ppres As Presentation
Set Ppres = ActivePresentation
Dim location As String
    
'~~~~~~~~~~~~saving in a location specified by us~~~~~~~~~~~~~~~~~~~~~

location = "C:\Users\Angelina\Review\MonthlyReview.pptx"
Ppres.SaveAs FileName:=location, FileFormat:=ppSaveAsDefault

ateneva

Option Explicit
Sub Update_Slide_Data()

Dim Ppres As Presentation
Set Ppres = Presentations("C:\Users\Angelina\Documents\2015_Review.pptm")

Dim location As String
location = "C:\Users\Angelina\Documents\2013_Review.pptx"

Dim PPS As PowerPoint.Slide

ateneva

Sub AddJIRATableBars()

Dim Cell As Range
Dim oldvalue As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Cell In ActiveSheet.Range("A1:H" & ActiveSheet.UsedRange.Rows.Count)
    
    On Error Resume Next
    oldvalue = Cell.Value

ateneva

Sub ShowUser()

ActiveCell.Value = Environ("UserName")                                                 'returns the domain name
ActiveCell.Offset(1, 0).Value = Application.UserName                                   'the user registered name
ActiveCell.Offset(2, 0).Value = Application.UserLibraryPath                            'location where COM-Addins are installed
ActiveCell.Offset(3, 0).Value = "C:\Users\" & UCase(Environ("UserName")) & "\Desktop"  'returns a custom directory
ActiveCell.Offset(4, 0).Value = ActiveWorkbook.FullName                                'the path + the name of the file <-- assimes file has been saved
ActiveCell.Offset(5, 0).Value = ActiveWorkbook.name                                    'returns the name of the file alone
ActiveCell.Offset(6, 0).Value = ActiveWorkbook.path                                    'returns the path where it is saved
ActiveCell.Offset(7, 0).Value = Application.PathSeparator                              'returns the dash

ateneva

Sub ReplaceConstantValues()
Dim Cell As Range

For Each Cell In ActiveSheet.Range("E2:E" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)

    Cell.Replace " USA", "USA"
    
    If Cell.Value = "Nederland" Then Cell.Value = "Netherlands"
    If Cell.Value = "Luxemburg" Then Cell.Value = "Luxembourg"