【デスクトップアイコン】

セットアップ時にデスクトップ上に作られたPSEのアイコンをクリックしてください。 次のような選択ボックスが現われるので通常は「編集」をクリックします。

下のような画面が現われます。これを「写真編集モード」画面といいます。

「写真編集モード」画面の「ファイル」メニューをクリックすると上のようなポップアップメニューが開きます。（上の画像では「新規」メニューのポイントによるサブメニューも表示されていますが、最初は左側部分だけがまずポップアップされます。）
作業を行うには、特別な処理をする場合を除き、大きく次のいずれかを選ぶことになります。

�@新規（白紙ファイル）
�A開く


【�@新規（白紙ファイル）】

まず「新規（白紙ファイル）」は、一から画像を作成していくときに選びます。
「新規（白紙ファイル）」メニューをクリックすると次のボックスが開きます。
このボックスの設定を説明していきましょう。

「ファイル名」は画像処理終了後のファイル保存時に名づけることができますが、この時点でつけておくこともできます。
プリセットはそれ以降の設定をまとめて設定するときに使うテンプレート機能です。
ここを変更することで、「幅」、「高さ」など、それ以降の設定値が自動的に組み込まれます。
例えばA4判のポスターを作りたい場合、「プリセット」で「日本標準用紙」を選び、「サイズ」を「Ａ４」にするとA4判用紙の大きさである「幅」→「210mm」、「高さ」→「297mm」に自動的に設定されます。
「プリセット」の設定の一つ「カスタム」では、自由に画像の「幅」・「高さ」、さらにそれ以降の各種設定を変更することができます。
「幅」、「高さ」はA4判用紙設定時には「mm」でしたが、上の画像のように「カスタム」では「pixel」になっていることがあります。その他にも「cm」や「point」など、さまざまな単位が存在するので、便利な反面、慣れないと間違えたり、混乱する恐れがあります。お気をつけください。
なお、環境設定で、標準設定を登録しておくことができます。これにより、起動時にはその設定で開かれます。もちろん、単位のセレクトボックスでいつでも変更することができます。（単位を変えると数値もそれにあわせて変更されます。）
「解像度」は基本的には数値が高いほど綺麗な画像になりますが、既存の画像を貼り付けた場合などには元の画像より綺麗になることはありません。それでも、ファイルサイズは基本的に大きくなります。
通常、WEB掲示用の画像なら「144pixel/inch」、印刷用の画像なら「240pixel/inch」以上にするとよいでしょう。あまり大きくし過ぎると処理に時間がかかり過ぎたり、処理できなくなることもあるのでパソコンの能力にあわせて設定してください。
「カラーモード」は特別な場合を除き「RGBカラー」にしてください。それ以外のモードではカラー画像は作れません。
「カンバスカラー」は「透明」、「白」、「背景色」のいずれかから選びます。「gif」、「png」画像をつくるときのみ透過画像を作れます。そのときにはあらかじめ「透明」を選ぶといいでしょう。（加工時に透過させることも可能です。）
作業エリアが下のように灰色と白（標準）の市松模様になっているときは、その部分が透過していることを示します。

それ以外のときには「白」、もしくは「背景色」を選びます。「背景色」を選ぶと、現在、設定されている背景色が適用されます。

背景色はツールボックス（左図）で確認・設定できます。 左図のような場合、白が描画色（鉛筆ツールなどの現在の色）、えび茶色が背景色です。 この背景色を変更してから、新規に「カンバスカラー」→「背景色」を選択して開くと、背景に現在の背景色が適用されます。 変更時は各領域をクリックすると色選択ボックスが開きます。

次の例で、画像は通常、オブジェクト（この場合、時計）に背景がなくても、下の「背景のない普通の画像」のように周りは白く塗りつぶされます。
これを「gif」画像など、透過することのできる画像で作成するときには、見かけ上、背景のない時計だけをくりぬいた画像として保存することができます。
「背景を透過した画像」では時計の周りに市松模様が現われていますが、この部分が透過していることを示しています。
別背景の前にこれら二通りの画像を置くと下のように、「背景のない普通の画像」は白く塗りつぶされた部分によって背景が隠されます。一方、「背景を透過した画像」では市松模様の部分が透過され背景が時計の周囲にまで見えるようになります。

	背景のない普通の画像		背景を透過した画像
	↓		↓
	別背景の前に置いた 背景のない普通の画像		別背景の前に置いた 背景を透過した画像

【�A開く】

既に存在する画像を加工したいときには「ファイルメニュー」の「開く」をクリックします。
「開く」ダイアログボックスが表示されますので、自分の開きたいファイルをクリックします。
ダイアログボックス内の「ファイルの種類」では、該当のファイルの拡張子を選ばなければなりませんが、「すべてのファイル」を選んでおけば、開けるすべての画像ファイルが表示されます。

開いたフォルダ内に画像があればいいですが、なければフォルダを移動して該当のファイルを開いてください。意味がわからなければ「画像ファイルの種類【DOS】」をご一読ください。
なお、「開く」で開く画像ファイルは、既に各種の設定を終えているので、「新規」で開いたときのような多くの設定は必要ありませんが、唯一、モードを「RGBカラー」に変更することを忘れないでください。でないと、画像ファイルは開けても、さまざまな機能が使えません。
変更は下図のとおり、「イメージ」メニュー→「モード」へ進み、「RGBカラー」をクリックします。

詳細はクラスで説明します。


※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。
　

インターネットの世界がどんどん複雑化し、リスクも増える一方です。
ネットワークさえなければ、こんなことに気を使う必要もなかったのでしょうが。
あー、鬱陶しい。

※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。
　

今日から新メンバーのための初心者用講座を開講しました。
新たに来られた方には早く他のメンバーと同じくらいになっていただきたいものです。
さて、今日のテーマは11月8日の記事にあらわれた「RGB」という言葉です。
「RGB」とは

このボックスの右下、欄外に#マークを配したテキストボックスがあります。
これが現在設定されているRGB値です。
上の図では「000000」が設定されていますが、この左2桁が赤の強度、真ん中2桁が緑の強度、そして右の2桁が青の強度を表しています。全てが「00」なので3色全てが消えた状態、つまり「黒」が設定されているのです。
なお、先に説明したように各色は256段階で表現できますが2桁しかありません。
これは、これらの数値は10進数ではなく16進数なので2桁で表現できています。（00〜FF）
16進数とは数字を0〜9、さらにA〜Fを含めた16個の数字を用いて表現する方法です。

00−01−02−03−04−05−06−07−08−09−0A−0B−0C−0D−0E−0F−10..... 
と16毎に1桁繰り上がっていく表現方です。

＃マーク位置のテキストボックスに適当な数値6桁（但し全て0〜Fの範囲）を入力してみてください。色がかわるはずです。また、0に近いほどその色は暗く、Ｆに近いほど明るくなっていくはずです。

わかりやすい色の例をいくつかあげておきます。

設定色		RGB値		色の組み合わせ
白	→	#FFFFFF		赤、緑、青すべて点灯
青	→	#0000FF		青のみ点灯
赤	→	#FF0000		赤のみ点灯
緑	→	#00FF00		緑のみ点灯
紫	→	#FF00FF		赤と青が点灯
黄	→	#FFFF00		赤と緑が点灯
水	→	#00FFFF		緑と青が点灯

上の例では00（色強度0％）とFF（色強度100％）だけでの設定ですが、このそれぞれの色強度を256段階で変えることにより、微妙な色を表現できるのです。

詳細はクラスで説明します。


※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。
　

使い方を例示しておきましょう。
例えば画面上の、ある複雑な情報をたくさん控えなければならないような状況が生じたとします。その場合にその情報をソフトで保存できるなら、それが一番確実ですが、場合によっては保存できないこともあります。
そのような場合、誰もがメモと鉛筆で控えるのが普通ですが、控えミスの恐れがあります。そこで、コピーしたい部分を表示させて、［Ｆｎ］キー＋［Prnt Scrn］キーを押すと、その画面がそのままクリップボードにコピーされます。
さらに、WORDを開き、「編集」→「貼り付け」を行うと、その情報を簡単に貼り付けることができます。後はそのWORD文書を保存すればいいだけです。（WORDの場合、トリミング機能を使えば、余分な部分を消してしまうこともできます。）

※	クリップボードとはパソコンの一時記憶領域のことで、このメモリーを使うことで異なるソフト間でのデータのやり取りが可能になります。（文字列、画像、ともに対象となります。） なお、正確な「ハードコピー」の意味はスクリーンなどの情報を紙に印刷することです。

詳細はクラスで説明します。


※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。
　

  
 　　If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
       　　　 KeyAscii = 0
               Beep
      End If
End Sub

なお、前回の記事でIF条件式がわかりにくいとの指摘があったので、そちらを再度、説明しましょう。
まず、上のプロシジャでKeyAsciiという変数が現われます。この変数は最初にPrivate Sub...文のかっこ書き部分に出て来ています。これは、VBAのシステムがKeyPressイベントの発生時（なにかキーを押したとき）に、ユーザーが実際に押したキーを認識し、そのキーのAsciiコード（整数）をKeyAsciiという変数に代入してくれることを表しています。
したがって、（特殊なキーを除いては）数値以外のキーも押したキーのコードがKeyAscii変数に取り込まれます。（少なくとも印刷可能文字キーはすべて取り込まれます。）
この場合、数値以外は入力させたくないので、If条件文でAsciiコードにおける「0」未満、「9」を超えるキーが押された場合には無効処理をさせます。
それがKeyAscii=0で、この文によって押されたキーを無効にすることができます。
なお、ASC(　)はカッコの中の文字（数値）をAsciiコードに変換するための関数です。これにより、KeyAscii変数と比較できるようになります。（基本的に条件式ではデータ型が同じでないと比較できません。KeyAscii変数がkeyAscii as MSForms.ReturnIntegerより整数として処理されるので右辺も整数にしなければなりません。）
数値「0」がAsciiコードで「46」で、順に数値「9」は「57」に割り当てられていますので、次のような書き方でも書けないことはありません。

　　If KeyAscii < 48 Or KeyAscii > 57 Then 

ただ、あとからこのコードを見た場合、これらのコードが何のキーであったかがわかりにくいので、あえてAsc()関数を使い、変換前の文字を記述しておく方がわかりやすくなります。もちろんAsc("0")は「48」をあたえ、Asc("9")は「57」をあたえます。（そこにコメントを加えておくなら数値でもかまいません。)

さて、今日の課題分に入ります。

ワークシート内の特定のセルがクリックされた場合に、フォームを開くというプロシジャは、WorkSheetオブジェクトに記述します。

WorkSheetオブジェクトはプロジェクトエクスプローラで確認してください。






上の図がプロジェクトエクスプローラです。通常、VisualBasicEditor画面の左上に配置されています。
プロジェクトエクスプローラには、Microsoft Excel Objects（ワークシート）、フォーム、標準モジュール、クラスモジュールなどが表示されます。そして、それらの集まりをプロジェクトといいます。
既にご承知のとおり、Excelのワークシートは新規作成すると自動的に３つのワークシートができますが、そのシートはすべてVBAではオブジェクトとみなされます。
今回、使うのはSheet1ですので一番上のSheet1(Sheet1)を使います。オブジェクト名のかっこ内はExcelにおけるシート名で、Excelのシート名を変えれば変更されます。かっこ外の名前もVisual Basic Editorのプロパティウィンドウで変更できますが、慣れないうちは変えない方が無難だと思います。
まず、Sheet1（Sheet1）をダブルクリックしてください。
Sheet1にコードが記述されていれば、コードウィンドウにSheet1に関するコードが現われます。新規のプロジェクトの場合、何も表示されません。

このコードウィンドウには２つのプリセットがあります。「オブジェクト」と「プロシジャ」です。
選択はコードウィンドウ上部のセレクトボックスで行います。





上の図で（General）と表示されたWorksheetオブジェクトを選択するセレクトボックスが、「オブジェクトの選択」です。そして、右に配置された(Declarations)と表示された側が「プロシジャの選択」です。プロシジャの選択ではイベントハンドラを選びます。
先にも書きましたように今回のケースではWorksheetに記述するので図のようにWorksheetを選びます。（上の図ではセレクトボックスの裏側に既にコードが表示されていますが、実際には何も表示されていません。）
今回の課題で「ある特定のセルを選んだとき...」とあるので、（Declarations）側では、「SelectionChange」を選びます。
なお、選択の順序は必ず「オブジェクト」→「プロシジャ」の順に選択してください。オブジェクトごとに固有のプロシジャがあるので、順逆だとプロシジャを選択できません。





「SelectionChange」はセルの選択範囲が変わったときに発生するイベントです。実質上、特定のセルをクリックしたときにも選択範囲が変わったとみなされ発生します。WorkSheetsオブジェクトには上の図のようにClickイベントは存在しません。理由はわかりませんが、多分、Excelを使う場合にクリックを使うことが多いので、イベントプロシジャとコンフリクト（衝突）することを避けるためではないかと思います。
オブジェクトとプロシジャを選択すると、自動的に次のようなプロシジャが表示されます。（この部分は定型句です。）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　（この部分に自身でコードを書いていきます）

End Sub

考え方は、KeyPressと同様です。ただし、KeyPressではキーが押されたときに該当のプロシジャが実行されましたが、SelectionChangeでは選択範囲が変更されたときに該当のプロシジャが実行されます。


今回のケースではコードを次のように記述します。

【Worksheet】 (オブジェクト名worksheet1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　　If (Target.Row = 1 And Target.Column = 1) Then
　　　　　　UserForm1.Show
　　　End If
End Sub

このプロシジャではワークシートでセル範囲を選択すると、先のKeyAscii変数と同様に、その選択範囲（Range）がTargetという特殊なオブジェクト型変数に読み込まれます。
この変数はRow（行）とColumn（列）というプロパティを持っていますのでそれらを使います。（それぞれ、選択範囲の先頭の行・列を表します。）
上の条件式で、Rowが「1」なのは範囲の先頭が１行目だということです。Columnでも1列目を表示する場合には「1」で表現しますが、Excelのワークシートでは「A1」など、列はアルファベットで表現しているのでご注意ください。
つまり、上のIf文は「選択範囲の先頭行が１列目でかつ先頭列が１列目であればUserForm1を開きなさい。」ということになります。ANDによって「Target.Row=1とTarget.Column=1という複数の条件式が両方、整ったら実行せよ」という意味になります。
他の選択範囲を選んでもUserForm1は開きませんが、該当のセルが左上先頭である選択である場合に限りどれだけ広い範囲を選択してもフォームは開きます。

UserFormが開かれた時点で、次のコードを用いてTextBox1を初期化します。

【UserForm】

privete sub UserForm Activate()
   TextBox1.Text = ""
End sub

これはUserFormがActivate（活動的）になったら実行されるイベントプロシジャです。つまりUserFormが使われるようになったら自然と発生するイベントです。
この文を要約すれば、「入力フォームが開かれたらテキストボックス（TextBox1）を初期化せよ」となります。Asc(　)関数の引数にもあったように、２つの「"」に囲まれた文字はVBAでは文字列をあらわします。この場合、その間に何もないので、結果、TextBox1に空白（厳密には違います）が代入されます。

最後に入力フォームのテキストボックスで入力した数値をワークシートに転記するコードを記述します。
先に記したようにKeyPressイベントが発生するとほとんどのキーコードがKeyAscii変数に取り込まれますが、例外があり、それが「Enter」キーや「Esc」キーなどの特殊キーです。
つまり、KeyPressイベントでは「Enter」キーが押されたことを認識することができないのです。
そのため、「Enter」キーや「Esc」キーのキーコードを取り込めるKeyDownイベントプロシジャを用います。

【UserForm】

Private Sub TextBox1_KeyDown(byVal KeyCode as Msforms ReturnInteger, 
ByVal Shift as Integer) 
 
  If KeyCode = vbKeyEscape Then
     Worksheets("Sheet1").Range("A2").Activate
      UserForm1.Hide
      Exit Sub
   End If

   If KeyCode = vbKeyReturn And TextBox1.text <>"" Then
      Worksheets("Sheet1").Activate
      Worksheets("Sheet1").Range("A1").value = TextBox1.Text
      Worksheets("Sheet1").Range("A2").Activate
      UserForm1.Hide
      Exit Sub
   End If

End Sub

KeyDownプロシジャでもKeyPressプロシジャ同様に、押されたキーのコードが変数に取り込まれますが、KeyAscii変数ではなく、KeyCode変数となります。変数名は異なりますが、ほぼ同じようなものと考えて差し支えありません。
このプロシジャはTextBox1内で「Esc」キーを押すとフォーカスがシートのA!に移り、フォームが閉じられます。つまり、入力がキャンセルされます。
一方、数値を入力後、「Enter」キーを押すとSheet1のセル"A1"に現在のTextBox1の内容を転記しUserFormを閉じます。
TextBox1.text<>""は「テキストボックスが空白でなければ...」ということです。
If KeyCode = vBKeyEscape...条件式、If KeyCode = vbKeyReturn...条件式、ともにある、Worksheets("Sheet1").Range("A2").Activateはフォーカスを別のセルに移すためのコードです。これがないと、A1セルにフォーカスが残り、そのまま通常のExcelの操作で内容の書き換えが可能となってしまうからです。（ここでは"A2"にしてありますが、使っていないセルならどこでもかまいません。これにより、再度、A1セルをクリックしても再度、SelectionChangeイベントが発生
し、先のプロシジャが実行され、フォームが開くので、直接、セルを書き換えることはできなくなります。
vbKeyEscapeやvbKeyReturnはVB定数で「ESC」キー、「Enter」キー、それぞれのキーコードが入っています。（これも、ASC（　）関数のとき同様、後からコードを見てわかりやすくするための工夫です。もちろん、定数ですので変更はできません。）

なお、UserForm固有の「閉じる」ボタンを押してしまうとやはり、同じ現象が起きてしまうので、次のような文が必要となります。

Private Sub UserForm_Terminate()
　　　Worksheets("Sheet1").Range("A2").Activate
End Sub

これも考え方は「Esc」キー、「Enter」キーと同様です。違うのはフォーム閉じられたときに実行されるUserForm_Terminateプロシジャによりセルの移動を行っているということです。

とにかく、VBAについて、私にはVBAのヘルプ機能くらいしか参考になるものがないので表面的なことしか調べようがありません。VisualBasicを知っている者でもこんなわかりにくいのですから、知らなければ、まさに暗号のようなものでしょう。


詳細はクラスで説明します。


※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。
　

詳細はクラスで説明します。


※わかりにくいようであれば説明しますのでクラス開催日にお申し出ください。