スライドショー中にカラーパレットを永久に表示 - MS PowerPoint

Question

私はMS PowerPointを使用してビデオレッスンを行っています。

残念ながら、私の生産性が大幅にスライドショー時に、それがかかるという事実によって軽減されます。

• 4回のクリックを緑のペンに変更し、その後、青蛍光ペン
• に赤ペンから変更するにはさらに4回のクリックが必要です。

この3秒間の非アクティブなバーストは、教訓を魅力的に編集してレッスンを魅力的にする必要があります。

キーボードショートカット（Ctrl-IおよびCtrl-P）は、ペンとハイライトにそれぞれ1つの色しか使用せず、2つの色を切り替えるだけで便利です。

各スライドの下部にカラーパレットを恒久的に表示するものがあるかどうかを知りたかったのですが、 PowerPoint 2013でうまく動作するOfficeOne InkToolsが使用されているため、これは可能ですが、私が望むすべての機能を備えているわけではありません。 私はコーディング経験があり、オブジェクトを修正する必要があるオブジェクトを歩いている場合は、この機能を自分で作成しても構わないと思います。

ありがとうございました。あなたは、あなたのファイルにこれらのようなものをVBAルーチンのカップルを追加することができます

（あなたが望むようにRGB値を調整する）：：

Answer 1

あなたは上記のようなスライドショー中に動的に表示/非表示のインタラクティブツールバーのいくつかの種類を持っていると思った場合、あなたは色を必要なだけのボタンでプロジェクトにフォームを追加し、呼び出すことができますスライド上のオブジェクトをクリックしたときにそのフォームを開くためのSub（可視かどうか）。これを行うには、あなたのスライド（またはマスター）に図形を追加し、それが標準モジュールにこのマクロを実行するには、マウスのクリック操作だ設定：

Sub ChangePenColour() 
    frmChangePenColour.Show 
End Sub 

が続いfrmChangePenColourと呼ばれるフォームを作成し、それがBTN1と呼ばれるに7つのボタンを追加btn6とbtnCancelへ。

その後、フォームにこのコードを追加：あなたは、スライドショーを実行すると

' ======================================================= 
' Pen Colour Demo by YOUpresent 
' Visit http://youpresent.co.uk for more PowerPoint stuff 
' ======================================================= 
Option Explicit 

Private Sub btn1_Click() 
    ChangePointerColor btn1.BackColor 
    Unload Me 
End Sub 

Private Sub btn2_Click() 
    ChangePointerColor btn2.BackColor 
    Unload Me 
End Sub 

Private Sub btn3_Click() 
    ChangePointerColor btn3.BackColor 
    Unload Me 
End Sub 

Private Sub btn4_Click() 
    ChangePointerColor btn4.BackColor 
    Unload Me 
End Sub 

Private Sub btn5_Click() 
    ChangePointerColor btn5.BackColor 
    Unload Me 
End Sub 

Private Sub btn6_Click() 
    ChangePointerColor btn6.BackColor 
    Unload Me 
End Sub 

Private Sub UserForm_Activate() 
    CentreForm Me 
End Sub 

Private Sub UserForm_Initialize() 
    With SlideShowWindows(1).View.Slide.Design.SlideMaster.Theme 
    btn1.BackColor = .ThemeColorScheme(msoThemeAccent1).RGB 
    btn2.BackColor = .ThemeColorScheme(msoThemeAccent2).RGB 
    btn3.BackColor = .ThemeColorScheme(msoThemeAccent3).RGB 
    btn4.BackColor = .ThemeColorScheme(msoThemeAccent4).RGB 
    btn5.BackColor = .ThemeColorScheme(msoThemeAccent5).RGB 
    btn6.BackColor = .ThemeColorScheme(msoThemeAccent6).RGB 
    End With 
End Sub 

Sub ChangePointerColor(lRGB As Long) 
    With SlideShowWindows(1).View 
    .PointerColor = lRGB 
    .PointerType = ppSlideShowPointerPen 
    End With 
End Sub 

Private Sub btnCancel_Click() 
    Unload Me 
End Sub 

' Centres a form wrt the PowerPoint application window 
Public Sub CentreForm(thisForm As Object) 
    On Error Resume Next 
    ' Position in the centre of the PowerPoint window 
    With thisForm 
    .Left = Application.Left + ((Application.Width/2) - (.Width/2)) 
    .Top = Application.Top + ((Application.Height/2) - (.Height/2)) 
    End With 
    If Err Then Debug.Print Err & Err.Description & " in CentreForm" 
    On Error GoTo 0 
End Sub 

さて、あなたはカラーピッカーを開き、その色に注釈を付ける開始するには、選択したアクティブな形状をクリックすることができます。あなたはそのツールバーは色がクリックされたときにスライドショーが開始され、ではないが消えたときに自動的に表示させたい場合は

はその後、あなたはこのサブADDDできます

Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow) 
    frmChangePenColour.Show 
End Sub 

をfalseに、フォームのShowModalプロパティを変更します。

あなたはおそらくUIロジックを微調整したいと思うでしょうが、これはあなたを動かすのに十分であるはずです。

Answer 2

思考のカップルのために、必要に応じて

Sub Blue() 
    With SlideShowWindows(1).View.PointerColor 
     .RGB = RGB(0, 0, 255) 
    End With 
End Sub 

Sub Red() 
    With SlideShowWindows(1).View.PointerColor 
     .RGB = RGB(255, 0, 0) 
    End With 
End Sub 

が多くを追加他の色。

次に、スライド（またはマスター）に2つの長方形などの図形を描画し、各矩形にRUN MACRO：青（または赤など）のアクション設定を割り当てます。

プレゼンテーションを見ている人には、そこに何らかの形があることがわからないように、これらを透明にすることができます。

ポインタを矢印に変えて（クリックすることで）、目的の色の図形をクリックし、Ctrl + Pを押してカーソルをペンに戻して描画することができます...選択した色で。

==================

別の全く異なるアプローチは、それらの間に、または1枚のスライド上の2枚の異なるスライドと遷移に予め注釈を追加することであろう必要に応じてそれらをアニメートします。