交流運営委員会（仮）のお話

ブログの更新がバラバラしてしまったので、再度ご案内の掲載です。

http://tomodachihiroba.cocolog-nifty.com/square/2015/03/post-724f.html

4/11に、新年度の計画を立てます。
詳しくはチラシや上記の案内ページをご覧ください。

お問合せはメール（tomodachihiroba@gmail.com）にてどうぞ！

桜の花がいい感じに咲いてきていますね

戸田市内の桜の写真をどうぞ。

ともだちひろばでは、3月に早々と桜を咲かせていましたが、リアル桜もきれいに咲いてきました。

2014年度は1年目。支えてくださったみなさま、ありがとうございます。
新しい年度もどうぞよろしくお願いいたします。

3月2回目（HR150321）の様子

3月2回目の様子です。

1回目と同じく、お花見と思い出のアルバムです。
お花見をしながら、1年間を振り返ります。

1回目は、花びらのみの花吹雪でしたが、2回目は枝をつけてみました。
よりお花見な雰囲気になったでしょうか。

そして、ちびっ子（？ｗ）も参加して、ゲームは盛り上がったと思います！

スタッフとちびっ子の記念写真です。

Excelで図形オブジェクトが印刷されないときのチェックポイント2つに、追加で1つ

お仕事にて、Excelでつくった報告書を印刷したところ、図形オブジェクトが印刷されず、困ったので備忘録です。
最近Excelが多いですね。。

オブジェクトのプロパティ設定と、データのグループ化の組み合わせ問題でした。

今回の環境は、Windows 7、x64、Excel 2010です。アドインなし。

メジャーなチェックポイント2つ

オブジェクトが印刷されない原因トップ2は分かっていたのです。

その1： 図形のプロパティ（オブジェクトを印刷する）

対象の図形オブジェクトを右クリックするなりなんなりして、プロパティを表示すると、「オブジェクトを印刷する」みたいなチェックボックスがあります。Excelのバージョンによって文言が違うかもしれません。

このチェックが外れていると、オブジェクトは印刷されません。図形でも画像でも、テキストボックスでも。

申請書などの紙出力する書類をユーザーに書いてもらう時、注意書きをオブジェクトに書いておき印刷しない設定にすると便利でした。

その2： 簡易印刷

ページ設定の「シート」タブ内に、「簡易印刷」というチェックボックスがあります。ここにチェックが入っていると、オブジェクトは印刷されないのです。

ページ設定は、印刷プレビュー画面で、印刷ボタンの下のほうにある設定のところのかなり右下にある「ページ設定」を押下するか、編集画面でページレイアウトタブ内の「ページ設定」と書いてある右にある小さなボタンを押下するかで開きます。

簡易印刷モードは、セルの色とか罫線とか図とかグラフとかいらないから、とにかくサッとデータだけ出したい、みたいな使い方でしょうか。（あまり用途が分かりませんが。。）
文字色は印刷に反映されるので、セル色を濃くして文字が白いみたいな設定だと、データが見えないという微妙機能。。

今回の現象

上の2つを確認したのに印刷プレビューに出てこなくて、どうしたものかと。。
ネットでざっと調べても、上の2つしか見つけられず。。

ふと閃いて、以下が発覚しました。

その3： 図形のプロパティとデータのグループ化

どうやら以下の条件が重なると、セル幅によっては図形が印刷範囲外になるようです。画面上では目視できるのですが、印刷されません。詳しい理由は不明。。考えたくない。。

• 図形オブジェクトのプロパティで、「セルに合わせて移動やサイズ変更をしない」が選択されている
• 図の並びの列にてデータのグループ化が設定されていて、グループを折りたたんでいる

今回は、図形のプロパティで「セルに合わせて移動するがサイズ変更はしない」を選択し、解決しました。
サイズが変わらなければ問題ないものでしたので。

Excel VBAでクリップボードに全角文字を格納する ［備忘録］

結論としては、ExcelのDataObjectを利用してクリップボードに全角文字の格納ができませんでした。（どうやら2バイトとか3バイトとかのマルチバイトがダメらしいです。。）
試した環境は、Windows 7のExcel 2010と、Windows 8.1のExcel 2013で、ともに64bitマシンです。以前（XP 32bit Excel 2003）はできていた気がするので、原因はx64なのか、Officeのバージョンなのか。。

いろいろ調べてみたのですが有効な情報が得られず、えらい苦労したので備忘録です。

そして、解決方法には、Win32APIを利用しました。

やりたいこと： クリップボードへの文字列格納

お仕事でExcelの表を使っていて、表から報告書を作った後、クリップボードに、日付（y/m）と日本語文字列というキーワードを格納したいのです。

そうすると、マクロを動かしたら、その日のキーワードが生成できて、別の記録ツールに貼りつけられて手間が省けるという寸法です。いちいち日付変えるのが面倒だし、ミスのリスクもあるし。
セルからコピーすると改行が入っちゃってそれも消すのが手間。。

やってみたこと： MSForms.DataObjectでクリップボードにアクセス

VBAでクリップボードを操作するというようなことをネットで調べて、DataObjectを使えばよいらしいということになり、以下のようなコードをテスト実行してみました。

Sub SetClipBoardSample()
    Dim myDO As DataObject
    Dim myStr As String
    myStr = "Hello World!"
    Set myDO = New DataObject
    myDO.SetText myStr
    myDO.PutInClipboard
End Sub

そして見事に成功！
クリップボードツールに、しっかりと文字列「Hello World!」が表示されます。

ところが・・・

現象： 半角文字は成功、全角混在は失敗

肝心のキーワードは日付と日本語。つまり半角全角混合文字列です。
Hello World!を「ハローワールド」に置き換えてテスト実行したところ、うまくいかず。

クリップボードツールでは、クリップボードに何も出力されていないように見えます。
実際、貼り付けようとしても何も貼り付きません。前の情報が残っているのではなく、情報がクリアされているようです。

半角だけならうまくいくので、日付だけならちゃんとできます。でも、しっかりキーワードでないと実用がめんどいのです。

文字コードで指定してみたらどうか、とも思ってやってみたのですが、なんだかうまくいかず。。

対策： Win32APIを利用

あちこち調べて見えてきたのは、どうやらMSForms.DataObjectでは全角（マルチバイト？）を格納することは不可能らしいということでした。

そして、TwitterでWin32APIでの解決という方法を知ります。

DLLの扱い方を調査して挫折

いろいろ見てみたのですが、難しい言葉を調べる気力がなく。。

お手軽に使いたいので、呪文だと思うことにしました。
なので、ネットで見つけたサンプルコードをそのままいただいて、標準モジュールに貼り付けてブラックボックス化。Public Functionなので、別モジュールから呼び出すということで解決しました。

ちょっとずるいような気もしますが、これで問題なく動作しました。
x86とx64だと少し違うようなのですが、x64環境ではこれで動いています。

サンプルコード

いただきもののサンプルコードを載せておきます。なくなっちゃうと困るので。。
オリジナルはこちらです。感謝です！^ ^

Option Explicit

'Win32API宣言
Public Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hData As Long) As Long
Public Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlag As Long, ByVal dwBytes As Long) As Long
Public Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Public Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
'本来はＣ言語用の文字列コピーだが、２つ目の引数をStringとしているので変換が行われた上でコピーされる。
Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Long, ByVal lpString2 As String) As Long

'定数宣言
Public Const GMEM_MOVEABLE         As Long = &H2
Public Const GMEM_ZEROINIT         As Long = &H40
Public Const GHND                  As Long = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
Public Const CF_TEXT               As Long = 1
Public Const CF_OEMTEXT            As Long = 7

Public Function CopyText(str As String) As Boolean
    Dim hGlobal As Long
    Dim length As Long
    Dim p As Long
    
    '戻り値をとりあえず、Falseに設定しておく。
    CopyText = False
    If OpenClipboard(0) <> 0 Then
        If EmptyClipboard() <> 0 Then
            '長さの算出(本来はUnicodeから変換後の長さを使うほうがよい)
            length = LenB(str) + 1
            'コピー先の領域確保
            hGlobal = GlobalAlloc(GHND, length)
            p = GlobalLock(hGlobal)
            '文字列をコピー
            Call lstrcpy(p, str)
            'クリップボードに渡すときにはUnlockしておく必要がある
            Call GlobalUnlock(hGlobal)
            'クリップボードへ貼り付ける
            Call SetClipboardData(CF_TEXT, hGlobal)
            'クリップボードをクローズ
            Call CloseClipboard
            'コピー成功
            CopyText = True
        End If
    End If
End Function

サンプルコード（呼び出し側）

たとえばこんな使い方。

Sub SetClipBoardSample02()
    Dim blnReturn As Boolean
    blnReturn = CopyText("ともだちひろばのひろば since 2014")
End Sub

以上です。

［つぶやき］ iOS8.2導入のその後

先日、iOSを導入してみたわけです。
iPad2はなんとなく早くなった気がしたので、そんなことをつぶやいていました。

1週間経ちますので、その他の機器の様子も含めて、再度つぶやいてみます。
これまで遅くて遅くてイライラすることもあったデバイスたちは、若干スムーズになったような気がするものの、まだまだストレスを感じます。。

使用状況

ここのところ、メールチェック、ブラウジング、写真撮影の3パターンに限られてしまっています。
諸事情で、あまりデバイスに触れていません。

機器の様子

そんな中でも、以下の危機をiOS8.2にアップデートしております。

• iPad2
• iPod touch 5th
• iPad Air 2

それぞれの感じは、次のとおりです。

iPad2

速度が速くなったように感じられます。
相変わらずAppStoreの起動は遅いですが、以前よりは速いような。。
文字入力がまえのガクガクから、ややスムーズになっている感じです。

でもまだ遅い。重い。。

iPod touch 5th

遅いまま。。
なにが良くなったのか分からないぐらい変化がないです。

文字入力に入るとき、若干スムーズになったような気もしましたが、ストレスは感じる状況です。

てか、次世代まだかなぁ。。

iPad Air 2

変わらず快適です。
さすがの最新機。

物理的にも薄いし軽いし、今のところ最高のパフォーマンスと思います。

まとめ

一応まとめてみると、iPad Air 2以外は、なんだかイライラする。。
という状況でございます。

他のユーザさんとか、A社さんの社内では状況が異なるのでしょうか。
え？iPhone6使えって？ｗ

［つぶやき］ iOS8.2を導入したらiPad2が速くなった

3/10に開催されたSpring ForwardでiOS 8.2が発表されたので、早速iPad2に導入。

すると、なんとなく速くなったような。
OSアップデートに伴う再起動が要因かもですが、しばらく様子を見てみます。

ブログやニュースを見ていると、「速さは変わらない」みたいなことを書かれている方もいらっしゃいました。たしかに、パフォーマンスの向上というのはなかったような。。
今回の目玉は、NHKのニュースにも出てしまうほどのApple Watchさんですからね。

それでも、
これまでのモッサリ動作が少しでも改善してくれればうれしいです。

iPod touch 6 は出ないのかなぁ。。

3/7 3月1回目 お花見と思い出のアルバム

ともだちひろばに、一足早い春がやってきました！
今日のテーマはお花見です。

今年度最後の活動です。お花見の演目ということで、1年の思い出を振り返ります。
「思い出のアルバム」の歌詞をともだちひろば用にアレンジして、みんなで歌いました。

途中、特に思い出深いゲームや歌を楽しみながら、振り返りました。

活動の最後には、思い出の詰まった冊子をプレゼント！
来年度もよろしくお願いします。

［備忘録］ iOSのメール設定で自分の名前を差出人表示する

メールの差出人表示は、受信者が使っているメールソフトによって異なりますが、ある程度は差出人側で指定できることになっています。
「こう表示したいです」程度の指定ですが、設定しておけば、受信側に採用してもらえるでしょう。

ひょんなことからいろいろ試してみたので、備忘録です。

検証環境
デバイス： iPod touch 第5世代
I OSバージョン： 8.1.3

前提として、iOSについて

曲者なのが、iOS標準のアプリ間で値を連携しているところです。
メールアプリでも、連絡先アプリと連携していて、値を引っ張って来ます。
なので、iOS内での優先順位は、以下のとおりになっているようです。

1. 設定アプリのメール設定内容
2. 連絡先アプリの登録済み情報
3. メールサービス提供元の設定値

メールサービス提供元によって異なる

設定の考え方が、メールサービス提供元によって微妙に異なります。

Google Gmail, Google Apps, Yahoo! メール

考え方としては、端末ごとに設定です。
なので、iOSの場合、設定で書いた値になります。具体的には、「設定」 → 「メール/連絡先/カレンダー」のところで任意のアカウント情報を表示したときの、『名前』という項目に設定した値です。,
ついでに、『メールアドレス』は文字どおりアドレスで、『説明』というのが端末内で表示する、自分が見てアカウントを識別するための値です。

MS Hotmail , Live ID, Outlook.com

考え方としては、サーバ側で設定した値を表示です。
なので端末側には設定のための項目がありません。
特に、マイクロソフトアカウントとしてひとつに統合している場合、どの端末からでも、アドレスが設定されていれば、名前としての表示内容は同じ、という考え方のようです。

ただし、この場合の落とし穴が、上述の前提の優先順序です。メールソフトによっては、iOSの連絡先、つまりはアドレス帳に設定済みの値を引っ張ってくるほうが優先になるので、アドレス帳の値が受信者側に送られるようです。

忘れずに

設定を変更したら、右上の「完了」をタップするのを忘れないように！

2015年5月度のともだちひろば

2015年5月のともだちひろば実施のご案内です。
チラシからこのページまで来ていただいた方にはお手数おかけしました。
内容をご確認のうえ、メールにてお申し込みください。

ともだちひろばでさわやかに年度初め

2015年5月度の活動は2回です。どちらもプログラム内容は同じです。
時間と場所も同じです。5月度は、第2土曜と第4土曜日開催です。

日程

2015年5月9日（土）： ご応募はこちらから （メールを作成します）

2015年5月23日（土）： ご応募はこちらから （メールを作成します）

（メールの題名は変更しないでください）

時間

両日とも、10:00から12:00までが活動時間（午前開催）です。
それぞれ、開始時間の10分前から受付を開始します。

場所

2回とも同じ東部福祉センター（埼玉県戸田市下前1-2-20）で、部屋も同じ大会議室です。

申し込み締め切り日

それぞれ、開催日の3日前を締め切り日としています。
材料や物品の準備がありますので、ご協力をお願いいたします。

プログラム

5月は、「さわやかな風」をテーマに、ゲームや歌を楽しみながら、仲間との交流を楽しみます。
プログラム内容は以下を予定しています。

• 体操（はじめの会）
• 工作（テーマに沿ったもの）
• 季節にちなんだゲームと歌
• おわりの会

実は、正直に申しまして、詳細が詰めきれておりません。。
内容は順次更新してまいります。楽しみにお待ちください！

持ち物

参加費は200円（初回体験の方は100円）です。活動中の保険料金と製作の材料費実費です。
その他、ハンカチやタオル、飲み物など必要なものをお持ちください。
日によって寒暖の差が激しい季節です。体温調整しやすい服装でご参加ください。

参加費は当日入り口にて集金いたします。

参加申し込み

お手数ですが、メールにてお願いいたします。

以下のリンクをクリック（タップ）するとメールを作成します。
日程ごとにメールの内容が異なります。必ず該当日のメールにてお申し込みをお願いいたします。

2015年5月9日（土）： ご応募はこちらから （メールを作成します）

2015年5月23日（土）： ご応募はこちらから （メールを作成します）

（メールの題名は変更しないでください）

今後の予定

6月以降も、昨年度同様にともだちひろばの活動を続けてまいります。
予定に関して詳しくは活動計画をご覧ください。

ここまで読んでくださりありがとうございます。

わたしたちのこと

ともだちひろば運営委員会は、戸田市で障害のある方々の余暇活動（特に団体活動）をお手伝いしています。
2014年4月から発足した団体で、それまで10年以上にわたって、戸田市内の障がい者、障がい児支援団体で活動していたメンバーが中心になっています。

本件に関するお問合せは、メール（tomodachihiroba@gmail.com）にてお願いいたします。

ともだちひろば交流運営委員会（仮）実施のお知らせ

2015年4月のともだちひろばは、いつもとちょっと違う内容です。昨年度の反省と、新年度の活動計画を話し合います。
チラシからこのページまで来ていただいた方にはお手数おかけしました。
内容をご確認のうえ、メールにてお申し込みください。

交流運営委員会（仮）

2015年4月度の活動は1回です。呼称はまだ仮決めです。
みなさんの意見で、ともだちひろばの活動内容を決めていきたいと考えていります。

日程

2015年4月11日（土）： ご応募はこちらから （メールを作成します）

（メールの題名は変更しないでください）

時間

14:30から15:30までの90分間です。
14:25分から受付を開始します。

場所

東部福祉センター（埼玉県戸田市下前1-2-20）の中会議室です。

申し込み締め切り日

2015年4月8日です。
資料の準備がありますので、ご協力をお願いいたします。

タイムテーブルと議題

以下を予定しています。

1. 14:30～14:40 はじめの会
2. 14:40～15:10 2014年度の反省
3. 15:10～15:20 休憩
4. 15:20～14:50 2015年度の計画
5. 14:50～15:00 おわりの会

じっくり意見を伺う機会にしたいと考えています。ともだちひろばの楽しみにしていることや、ともだちひろばでやってみないことを教えてください。そのほかにも、いろいろなご意見をいただければと思います。
反省の部では、前年度の実施内容を絵や実物を見ながら振り返り、「よかったこと」や「もっとこうしたかった」といった意見をお聞きします。
計画の部では、前年度の反省といくつかの原案を踏まえつつ、やりたいこと、楽しみなことを伺います。

いろいろなご意見の表現方法があると思いますので、スタッフがサポートします。

持ち物

参加費は無料です。

ハンカチやタオル、飲み物など必要なものをお持ちください。
日によって寒暖の差が激しい季節です。体温調整しやすい服装でご参加ください。

参加申し込み

お手数ですが、メールにてお願いいたします。

以下のリンクをクリック（タップ）するとメールを作成します。

2015年4月11日（土）： ご応募はこちらから （メールを作成します）

（メールの題名は変更しないでください）

今後の予定

5月以降も、昨年度同様にともだちひろばの活動を続けてまいります。
予定に関して詳しくは活動計画をご覧ください。

ここまで読んでくださりありがとうございます。

わたしたちのこと

ともだちひろば運営委員会は、戸田市で障害のある方々の余暇活動（特に団体活動）をお手伝いしています。
2014年4月から発足した団体で、それまで10年以上にわたって、戸田市内の障がい者、障がい児支援団体で活動していたメンバーが中心になっています。

本件に関するお問合せは、メール（tomodachihiroba@gmail.com）にてお願いいたします。

2/21（2月2回目）の活動

遅くなってしまいましたが、2/21の活動報告です。

活動内容自体は、2/7の1回目と同じですが、参加される方が違えば微妙に内容や楽しいことも変わってきます。そこが活動のいいところですね。

節分の由来を聞いて、まめまきの歌をうたって、みんなの中にいるオニをつくりました。
あまのじゃくオニとか、べんびオニとか、オリジナリティあふれていましたねｗ

おにたいじをしていると、親分が現れ、いっしょに退治されちゃいます！
悪いものが退治されたみんなは、オニも含めて仲良しに！！
鬼ごっことか、お相撲とか、ゲームを楽しめました。オニのパンツの力を信じるのだ～