［Excel］グラフのテンプレートの活用方法

環境：Windows10；Office2019

テンプレートを活用すれば、複数のグラフのデザイン統一が容易にできる。

１．テンプレートの保存方法
１）グラフを選択→右クリック
２）［テンプテートとして保存］
３）ファイル名を付けて、保存

注：保存先は、下記フォルダ
C:\Users\(ユーザ名)\AppData\Roaming\Microsoft\Templates\Charts
拡張子は、crtx

２．既存グラフにテンプレートを適用する方法（参考図参照）
１）グラフを選択
２）右上の［グラフのデザイン」→［グラフの種類の変更」をクリック
３）グラフの種類の変更窓で、［すべてのグラフ］→［テンプレート］
４）右方のテンプレート（デザイン）から選択して、OK

３．新規グラフにテンプレートを適用する方法
１）データ選択→［挿入]→[すべてのグラフを表示]→[テンプレート]
２）右方のテンプレート（デザイン）から選択して、OK

備考：
１）データの差によるデザインの差異が発生するので、手直しが必要
例：z軸のレンジ、目盛りなど、縦軸の書式を修正

関連記事：
[Excel2010] 等高線グラフの目盛間隔変更方法
http://kenkitagawa.cocolog-nifty.com/blog/2011/12/excel2010-a0f9.html

[Excel] 3Dグラフのデザインを変えたい
http://kenkitagawa.cocolog-nifty.com/blog/2015/01/excel-3d-12c5.html

----------参考図-----------

世界中のラジオをリアルタイムに聴けるRadio Garden（ラジオガーデン）

先日の新聞記事で知ったwebサイト/アプリ。
PCからなら、http://radio.garden/
スマホからなら、アプリをダウンロード。

ウクライナの地図から、キエフのラジオ局を探した。

http://radio.garden/listen/ua-radio-voice-of-kyiv/YgUo3Cs3
UA Radio Voice of Kyiv
Kyiv, Ukraine（ほとんど、ウクライナ語）

他に、音楽を流す局が多数あり。

http://radio.garden/listen/hitfm/3OFhI4Gt
など。

ウクライナに幸あれ！

[Excel] シートタブの色を変える

目的：多数のシートがある場合、色分けして識別を容易にする

手順：
１）シートの見出しを右クリック
２）[シート見出しの色] をクリック
３）一覧から色を選択

備考：昔のExcelには無かった機能で、Excel2010以降は大丈夫。

[Excel] ２次元データを任意間隔で間引くマクロ

目的：画像データのような2次元データの任意間隔間引き

対象データ：アクティブシートの2次元データ
・第1行にx座標（等間隔）
・第1列にy座標（等間隔）
・セル（B,2)以降に2次元データ

間引きデータ：自動作成される新規シートのセル（B,2)以降

マクロ：下記の通り

Sub Mabiki()

Dim m As Long, n As Long, i As Long, j As Long
Dim cols As Long, cole As Long, cold As Long
Dim rows As Long, rowe As Long, rowd As Long

Dim ws1 As String, ws2 As String

' シート作成
Set Sheet = ActiveSheet ' 現在アクティブなシートを取得する
ws1 = ActiveSheet.Name
ws2 = ActiveSheet.Name & "m"
Worksheets.Add
ActiveSheet.Name = ws2
Sheet.Activate 'シートをアクティブに戻す

' 2次元データ領域
cols = 2 ' 最初の列
cole = 102 ' 最終列
cold = 2 ' 間引き列数

rows = 2 ' 最初の行
rowe = 102 ' 最終行
rowd = 2 ' 間引き行数

' 間引き後の2次元データサイズ
m = (cole - cols + 1) / cold + 1
n = (rowe - rows + 1) / rowd + 1

'
Application.ScreenUpdating = False

' 第1行

For i = cols To cols + m - 1
  Sheets(ws2).Cells(i, 1) = Sheets(ws1).Cells(2 * (i - 1), 1)
Next i

' 第1列

For j = rows To rows + n - 1
  Sheets(ws2).Cells(1, j) = Sheets(ws1).Cells(1, 2 * (j - 1))
Next j

' 2次元データ：(cols, rows)～

For i = cols To cols + m - 1
  For j = rows To rows + n - 1
    Sheets(ws2).Cells(i, j) = Sheets(ws1).Cells(cold * (i - 1), rowd * (j - 1))
  Next j
Next i

Application.ScreenUpdating = True

End Sub

--------------

参考記事：

[Excel] １次元、２次元データを任意間隔で間引く方法

http://kenkitagawa.cocolog-nifty.com/blog/2009/08/excel-1bce.html

[スマホ] 半角カタカナ入力方法

機種：NTTドコモ Galaxy A51 5G SC-54A

方法：
１）ひらがな入力
２）左下の[変換]をクリック
３）2回クリックすると半角カタカナ候補が出る

備考：いったん選択すると、2回目からは最初の候補に出る

--------------ひらがな入力-------------

 

--------------[変換]をクリックしていくと、半角カタカナ候補が出る -------------

［スマホ］ Androidでスクリーンショットを撮る方法

機種：NTTドコモ Galaxy A51 5G SC-54A

問題点：web上では、「電源キーと音量DOWNキーを同時に長押しする」と紹介されているが、なかなか、うまく行かない

解決法：電源キーと音量DOWNキーを一瞬だけ同時に押す

備考：スクリーンショット画像は、「ギャラリー」で見られる

参考：取扱説明書 基本操作 p.34には、スクリーンキャプチャーする方法が記載されている。