エクセルでデコメ絵文字を作る方法

このQ&Aのポイント
  • エクセルでデコメ絵文字を作る方法について説明します。
  • 具体的な手順として、新規のシートを作成し、ピクセルサイズや色を設定します。
  • また、ペイントソフトを使用してサイズを調整する方法も説明します。
回答を見る
  • ベストアンサー

エクセルでデコメ絵文字を作りたい

win7、エクセル2007です。 エクセルでデコメ絵文字を作ろうとしています。 デコメ絵文字は20ピクセル×20ピクセルなので 新規のシートに --------------------------------------------------------- Sub Macro() Columns("a:t").ColumnWidth = 0.08 Rows("1:20").RowHeight = 0.75 Range("A1:T20").Interior.Color = 255 Range("A1:T20").Copy ActiveWindow.Zoom = 400 End Sub --------------------------------------------------------- で作ったエクセルに色を付けます。 そしてwindows付属のペイントソフトを立ち上げ、 サイズ変更→ピクセルを選択 →縦横火を維持するのチェックをはずす →水平方向20・垂直方向20 にし、800%のズームにします。 そしてコピーしたエクセルをペイントに張り付けると添付の図のように、21px×21pxになってしまいます。 20px×20pxにするにはどうすればいいでしょうか? わかりづらくてすいません。 ご回答よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • nao-y
  • ベストアンサー率58% (111/190)
回答No.2

VISTA、Excel2000ですが現象が再現しました。 Excelのセル範囲は元々画像ではないので、 コピーをするとセル内容等の情報を持っており、 画像に現せないそれらの情報が、余分な部分となって 現れる…のかも知れませんね(勝手な推測です、すみません) さて、実現なさりたいことは、以下のどちらでしょうか? 1.エクセル上でセル毎に色を変えることにより   ドット絵を描き、画像ファイルとして保存するために   ペイントに貼り付ける。 2.エクセル上で作成するのはあくまでも枠線つきの  20px×20pxの土台であり、ペイント側で絵を描いてから  画像として保存する。 2を行いたいということであれば、#1さんの方法が良いと思います。 1を行いたいということであれば、Excelのウィンドウを一番前にした 状態でAlt+PrintScreenキーを押して画面キャプチャしたものを、 ペイントに貼り付けられれば良いと思います。 このときに、Excelのオプション設定で、枠線を非表示にしておくと 絵を切り取りやすいかと思います。 いかがでしょうか?

re423qfasd
質問者

お礼

ありがとうございました。

その他の回答 (1)

回答No.1

画像を選択したときのみリボンに出現している「図ツール」で、「トリミング」を押してみてください。それで画像の境界をドラッグすると、1 px の隙間だけ削り取ることはできませんか?

re423qfasd
質問者

お礼

ありがとうございました。

関連するQ&A

  • 携帯用デコメ絵文字について・・・探してます

    携帯用のデコメ絵文字20*20の小さいやつで、 これを探しています  ↓  トン❤ トンッ❤ ってのです。 語尾・文字で探してみてもなかなか。。。 誰かお持ちの方は下さいm( )m ずっと探しているのですが見つからなくて・・・(泣) お願いしますm( )m

  • ガラケーで使っていたデコメをスマホで使いたい

    先日ガラケーのSH-06Aから、スマホのT-02Dに機種変更しました。 窓口で画像をT-02Dに移してもらったのですがデコメ絵文字もデコメ素材の画像もギャラリーというところにSH-06Aで撮影した写真とごっちゃになって入っていてメール作成画面のデコメ絵文字選択やデコメ画像を選択する部分に表示されません。 どうすればデコメ絵文字、デコメとして使えるのでしょうか? また、SH-06AでつかっていたデコメテンプレートはSDカードを使えばT-02Dに移すことができるのでしょうか?そして使えますか? わかる方がいましたらよろしくおねがいします。

  • デコメ絵文字(20×20ピクセル)の作成サイトについて

    デコメ絵文字(20×20ピクセル)を作成できるサイトをご存知の方、ぜひURLを教えて下さい。 PCサイトでも、携帯サイトでも構いませんので、よろしくお願い致します。 ※念のため・・・当方iMac G5、携帯はドコモD904iを使用しております。

  • 新機種も絵文字はそのまま?

    W54SAを予約しています。 友達がドコモのN905iuを買って絵文字を見せてもらったところかなりかわいかったです!!! デコメ絵文字というのでしょうか?動いててキラキラしてて・・・ デコメ絵文字auにはついてないんですか? 2年以上機種変してないのでauの絵文字が増えているのかも知りたくて・・・ 現在デコメ非対応機種 W41Tです。

    • ベストアンサー
    • au
  • 携帯での送信メールの際に使えるデコメ絵文字の数

    携帯での送信メールの際に使えるデコメ絵文字の数 自分が使っている携帯(docomoのSH-05A)ではメール送信の際に 使えるデコメ絵文字が「20個~25個くらい」までしか使えないようです。 それ以上使おうとすると、 「挿入可能サイズまたは件数を越えています。これ以上は挿入できません」 というメッセージが表示され、それ以上はデコメ絵文字が入力できなくなります。 これは、単に、送信メールの容量が大きくなりすぎですよということなのでしょうか? わかるかたいらっしゃいましたら、教えていただけませんでしょうか。よろしくお願いします。

  • エクセルVBAで列幅設定

    A列の幅を、C~F列の幅(同一ではありません)に設定しようと思いました。 ところが Columns("A").ColumnWidth = Range("C1:F1").Width とすると、ColumnWidthとWidthの単位がまったく違うのでエラーになります。 同じ単位で設定するには Columns("A").ColumnWidth = Columns("C").ColumnWidth + Columns("D").ColumnWidth + Columns("E").ColumnWidth + Columns("F").ColumnWidth とするか、 Sub test02() Dim c As Range Dim x As Single For Each c In Range("C1:F1") x = x + c.ColumnWidth Next Columns("A").ColumnWidth = x End Sub などのように手の込んだことをするしか思いつきません。 もっと簡単な方法はないでしょうか?

  • 他社携帯から送られてくる絵文字?デコメ?について教えてください。

    こんにちわ。 既出の質問になるかもわかりませんが、質問させて頂きます。 私の嫁の携帯(ソフトバンク 912T)なんですが、嫁友との間でやりとりするメールには絵文字(デコメ?絵が動いたりするやつです※私もあんまり分かってません・・)が使用されてます。 嫁友の相手はドコモを使用されていまして、その方はサイトからかわいい絵文字をゲットされているようです。 その嫁友の話では、ドコモの携帯はサイトからダウンロードしてくる絵文字の他に、他の方から送られてくるメールの中に使用される絵文字の中で気にいった物があれば、自分の携帯に取り込んで他のメールに使用できるような機能がついていると言っているそうなのですが、 我が嫁の携帯(恐らくソフトバンク全般)では、そんな機能はないものかとマニュアルを探しまくっております。 ソフトバンクの携帯でも、他の方から送られてくるメールで気に入った絵文字があれば保存し、他のメールに使用するような事ができるのでしょうか? お手数ですがご教授願います。

  • 20×20ピクセル以外のサイズでデコメを作成したいのですが・・・

    20×20ピクセル以外のサイズでデコメを作成したいのですが・・・ チビデコ(?)やプチデコ(?)などいろいろ呼び名があるようですが・・・ 20×20ピクセル以外のサイズでデコメ絵文字(ピクチャ?)を作成できるPCサイトをご存知の方、 ぜひURLを教えて下さい。 初心者なので、GIMPなどの作成ツールでなく簡単に作成できるサイトをお願いします。 できればほしい機能は・・・ ♪すでに持っている画像を読み込みできる。 ♪簡単にアニメにできる。 の、2点です。 デコメ絵文字を作成する際に絵文字エディタhttp://mjf.jp/canvas.phpを使っていますので、似たサイトがあると大変助かります。 注文が多いですが・・・よろしくお願いします。 必要な情報かわかりませんが・・・PCはWindows XP です。

  • エクセルの文字の消し方

    エクセルの文字の消し方について質問です。 A列、B列のセルに沢山文字を打ち込んであります。 それをセルの幅、高さを変えないで打ち込んだ文字だけ消す方法はありますか? A列(110ピクセル)、B列(50ピクセル)と幅を設定しています。 A列、B列を右クリックして削除すると指定した幅のセルが消えてしまいます。 消したいセルをドラッグして右クリックして削除にすると左方向にシフト 右方向にシフトで消えてしまいます。 セルの幅、高さは残したまま文字だけ消す方法を教えてください。 お願いします。

  • excelのマクロが上手く動作しません

    excel2013で、シートのレイアウトを整えるマクロを以下のように作成しました。 しかし、いざ他のシートで試すと、そのシートと同時に特定のシートにもなぜかマクロが実行されてしまいます。(恐らく作ったときに使っていたシート) どうしたら今見ているシートだけにマクロを実行することができるでしょうか? ActiveWindow.Zoom = 85 ActiveWindow.Zoom = 70 Columns("A:A").ColumnWidth = 10.13 Columns("A:A").ColumnWidth = 10.63 Columns("B:B").ColumnWidth = 6.63 Columns("D:D").ColumnWidth = 20 Columns("D:D").ColumnWidth = 23.75 Columns("D:D").ColumnWidth = 24.63 Columns("E:E").ColumnWidth = 10.38 Range("E1").Select ActiveCell.FormulaR1C1 = "インボイス金額" ActiveCell.Characters(7, 2).PhoneticCharacters = "キンガク" Columns("F:F").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("H9").Select Columns("G:G").ColumnWidth = 11.38 Columns("I:K").Select Selection.Delete Shift:=xlToLeft Range("J9").Select Columns("I:I").ColumnWidth = 15 Columns("J:J").ColumnWidth = 9.75 Columns("K:K").ColumnWidth = 9.5 Range("L2").Select Columns("L:L").ColumnWidth = 5.5 Columns("O:O").Select Selection.Delete Shift:=xlToLeft Selection.ColumnWidth = 13.88 Columns("P:P").Select Selection.Delete Shift:=xlToLeft Selection.ColumnWidth = 12.13 Selection.ColumnWidth = 13.25 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 12 Columns("Q:Q").Select Selection.ColumnWidth = 5.5 Columns("S:S").Select Selection.ColumnWidth = 6.75 Columns("T:T").ColumnWidth = 9.75 Columns("Q:T").Select Range("T1").Activate Selection.Style = "Comma [0]" Columns("U:U").Select Columns("V:V").ColumnWidth = 5.5 Columns("V:V").ColumnWidth = 6 Columns("W:Z").Select Selection.Delete Shift:=xlToLeft Columns("X:Z").Select Selection.Delete Shift:=xlToLeft Range("X10").Select Columns("X:X").ColumnWidth = 12.25 Columns("X:X").ColumnWidth = 11.13 Columns("Y:Y").ColumnWidth = 6.75 Columns("Z:Z").ColumnWidth = 11.63 Columns("AA:AA").ColumnWidth = 6.75 Columns("AB:AB").Select Selection.Delete Shift:=xlToLeft Range("AB2").Select Columns("AB:AB").ColumnWidth = 11 Columns("AD:AO").Select Selection.Delete Shift:=xlToLeft Range("AF14").Select Columns("AD:AD").ColumnWidth = 11 Columns("AE:AE").Select Selection.Delete Shift:=xlToLeft Range("AG7").Select Columns("AE:AE").ColumnWidth = 20.38 Columns("AF:AJ").Select Selection.Delete Shift:=xlToLeft ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 1 Rows("2:2").Select ActiveWindow.FreezePanes = True Range("A2").Select ActiveWorkbook.Worksheets("11").Sort.SortFields.Clear ActiveWorkbook.Worksheets("11").Sort.SortFields.Add Key:=Range("D2:D137"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("11").Sort.SortFields.Add Key:=Range("A2:A137"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("11").Sort .SetRange Range("A1:AE137") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .Apply End With End Sub よろしくお願い致します。

専門家に質問してみよう